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Hier sind sie also: Die neuen Spielehits für 
Colour Genie. Auf Diskette oder Cassette. 
Ganz nach Wunsch! Alle Cassetten liefern wir 
in einer tollen Kunststoff-Buchhülle, alle Dis- 
ketten in einer eigenen, ansprechenden Tasche. 
Alle Disketten und Cassetten werden vor dem Versand 


auf Fehlerfreiheit getestet. Das heißt, Sie bekommen bei uns nur 

ausgesuchte Spitzenqualität. Und das zu enorm günstigen Preisen. Übrigens liefern 

wir nach dem Motto: Heute bestellt, morgen verschickt! Wenn Sie also telefonisch be- 
stellen, und vor 12.00 Uhr bei uns anrufen, erfolgt der Versand noch am selben Tag. Bestel- 
lungen per Brief werden sowieso noch am selben Tag erledigt. Also bestellen Sie noch heute!!! 


VORTEX 

Verteidigen Sie die Ringe des Saturn! An Ihnen liegt 

es, ob die Saturn-Monde von den Extra-Terrestrials 

versklavt werden, oder ob Sie frei bleiben! Also, 

setzen Sie sich in Ihren Kampf-Raumer und los geht's. 
Cassette DM 49,-- — Disk DM 56,-- 


ASTRAY 
Fliegen Sie den schnellsten Kampf-Jäger der Welt 
über feindliches Gebiet! Aber hüten Sie sich vor den 
Boden-Luft-Raketen und den feindlichen Düsen- 
jägern. Wenn Sie es schaffen, die Höhlen zu durch- 
queren, sind Sie der Sieger! 

Cassette DM 59,-- — Disk DM 66, -- 


Bestellen Sie noch heute bei: 
Ralf M. Hübben, 
Verlag für Computertechnik, 
Mühibachstraße 2, 
5429 Marienfels/Ts. 


Wir liefern gegen Voreinsendung eines Verrech- 
nungsschecks, Porto und Verpackung frei, oder 
per Nachnahme plus 5,- DM Versandkosten 
Pauschale. 


NEU NEU NEU NEU NEU NEU 


FiG-FORTH 

Endlich gibt es auch diese fantas- 
tische Programmiersprache für Ihren 
TRS 80*, Modell 1. Was Sie benö- 
tigen ist mindestens 32K RAM und 
Diskettenlaufwerk. Was Sie bekommen 
ist FIG-FORTH auf Diskette, deut- 
sches Handbuch und ein Editor/ 
Assembler! Nur DM 199,-- auf Disk. 


*TRS 80 ist eingtr. 
Tandy Corp. 


Warenzeichen der 


PACBOY 
Steuern Sie den kleinen, gefrässigen PACBOY durch 
ein Labyrinth. Aber Vorsicht! Hüten Sie sich vor den 
Gespenstern! Es werden von Labyrinth zu Labyrinth 
mehr! Und wenn es sechs sind, kann das Labyrinth 
unsichtbar werden! Ein Riesenspaß ! 

Cassette DM 49,-- — Disk DM 56, -- 


COLDAT 
Das universelle Adreß-Verwaltungs-Programm für Ihr 
Colour Genie. Hiermit speichern Sie Adressen, finden 
Sie sehr schnell wieder, schreiben Aufkleber, und, 
und, und! Inklusive deutschem Handbuch! 

Nur auf Diskette DM 79,-- 


BÜCHER Alle in deutscher Sprache! 
Programmieren in Maschinensp. mit Z80 39,-- DM 
Programmieren in Maschinensp. mit Z80, Teil Il, 

speziell für GENIE und TRS 80* 29,80 DM 
Z80 Assembler Handbuch, mit allen Z80 
Befehlen. Sehr ausführlich! 

280 Programming Reference Card, Englisch 
Programmieren mit TRS 80*, viele Tips, 
viele Beispiel-Programme 

Anwender Programme für TRS 80” und 
Video Genie 


29,80 DM 
5,-- DM 


29,80 DM 
29,80 DM 


WIR SUCHEN COLOUR GENIE 
HARD- UND SOFTWARE! 


Haben Sie ein gutes Programm für das Colour Genie? Egal ob Basic, 
Maschinensprache oder compiliert! Wenden Sie sich an uns! Wir 
bieten Ihnen für ein gutes Programm ein gutes Honorar! Oder ken- 
nen Sie vielleicht einen Grund, warum Sie sich nicht mit Ihrem 
Hobby ein paar Mark nebenher verdienen sollen? 

Selbstverständlich sind wir auch daran interessiert, gute Hardware 
für das Colour Genie mit Copyrights zu kaufen | 

Schreiben Sie uns oder rufen Sie an: Telefon 067 72-7828. 
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UNNUMMER 
Eine sehr interessante Möglichkeit Ihre 
Basic Programme zu schützen, bietet Ihnen 


dieser Artikel Seite 5 
HÜLLEN DRUCKER 

Mit diesem Programm drucken Sie für Ihre 

Musik- oder Programm-Cassetten Labels, 

die sich sehen lassen können Seite 10 


PROGRAMMIERER WETTBEWERB 

Sie können glatte 200,-- DM gewinnen, bei 
unserem großen Programmierer Wettbewerb ' 
für alle Genie | und || Besitzer. Da müssen 
Sie auf jeden Fall mitmachen! 

Näheres auf Seite 13 
ASSEMBLER KURS, TEIL 111 

Weiter geht es für alle „„Maschinen- -Lehrlinge” 

in unserem Kurs über Programmierung in 
Maschinensprache Seite 15 
ZEILEN SCHIEBER 

Haben Sie sich schon geärgert, daß man 

beim Colour Genie jede Zeile, die wo 

anders hin soll, neu tippen muß? 

Dann hilft Ihnen dieses Maschinenprogramm! 


„Seite 19 Di 










Für jeden, der etwas:sucht, oder oralen will, 
die Kleinanzeigen auf 


SYNTHESIZER u 
Wir machen Musik ! Und zwargebenwir 
Ihnen das benötigte Programm, und zeigen, 
wie man eine Orgeltastatur an das colour , 
Genie anschließt. 


EINKAUFSFÜHRER 
Unsere neue Rubrik. Hier finden Sie die 
guten Fachgeschäfte. Schauen Sie einmal'rein! 


Seite 28 


FÜR DEN ANFÄNGER 
Die neue Serie in der GENIE DATA. 


Saite 21 


Hier klären wir alle Fragen, die so 
beim Einstieg in die Computerei auf- 
treten können. Wenn Sie auch noch Fragen 
haben, müssen Sie sich das ansehen! 
Seite 29 


BANKSELECT 

Wußten Sie schon, daß bei älteren Genie 

I und I! Modellen 16K Speicher brach 

liegen ? Wie man diese zum Leben erweckt, 

zeigt Ihnen unsere Selbstbau-Anleitung 

ab Seite 30 


GENIE DATA TEXTSTAR 
Ein neues lauffähiges Textverarbeitungs- 
Programm bieten wir Ihnen hier! 
Seite 32 


DISASSEMBLER 
Wer schon immer mal in fremde Maschinen- 
programme rein sehen wollte, ist mit 
diesem Programm gut beraten! 

Seite 35 


MONDLANDUNG 
Waren Sie schon. einmal auf dem Mond’? 
Nein? Dann:.tippen Sie ganz schnell 


dieses Programm ab, und.versuchen Sie 
5 ZM landen! 


Seite 41 


UNKTIONSDISKUSSION 
ier ist etwas für alle Mathematiker! 
Ein Funktionsdiskussion Programm, das 


Ihnen die Funktion plottet, und diese 
auch ausdrucken kann! 


Seite 47 





NEWPRINT 

Für alle: Genie | Inc I Besitzer, die 

sich schon geärgert:haben, daß man nicht 

alle Druckcodes ausgeben kann. Dieses 

Programm schafft Abhilfe! Seite 50 

DATA IT! 

Mit Hilfe dieses Programms wandeln 

Sie beliebige Maschinenprogramme um 

in ein Basic-Programm mit Data-Zeilen. 
Seite 51 
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In einer Fachzeitung las ich vor einiger 
Zeit, daß es für das Colour Genie ein In- 
terface zum Anschluß an einen Fernschrei- 
ber der Marke Siemens T1000 geben soll, 
kann die entsprechende Passage jedoch 
nicht mehr finden. 
Nun meine Frage: Gibt es wirklich diese 
Anschlußmöglichkeit, und wo kann man sie 
erwerben (zu welchem Preis)? 
Jörg Jacobsen 
Hartwig-Hesse-Straße 39 
2000 Hamburg 19 


WER HILFT? 





Seit Januar 1984 abonniere ich nun die 
Zeitschrift GENIE DATA und finde es gut, 
daß ab Heft Nr. 2/84 Teile der Erstaus- 
gabe beiliegen werden. . Ich hätte aber 
gerne noch die anderen Ausgaben, die 1983 
erschienen sind. Wieviele sind es, und 
wie kann ich sie Nachbestellen? 
Verfügen Sie auch über eine Colour Genie 
Software-Liste? 

Dirk Besemer 


Lassen Sie mich zuerst einmal sagen, daß 
ich die GENIE DATA sehr interessant und 
überaus wichtig für Computer-Laien, wie 
ich einer bin finde. Dazu gehört, daß ich 
Ihnen bei "der weiteren Gestaltung und 
Erhaltung der Zeitschrift viel Erfolg und 
‘gute Resonanz wünsche. 
Nun zur GENIE DATA 2/83. Ich bin daran 
interessiert, auch diese Ausgabe und 
eventuell noch weitere zu erhalten. 
Kristian Steffen 


Von den zurückliegenden Ausgaben der GENIE 
DATA sind nur noch die Nummern 3+5/1983 
erhältlich. Unser komplettes Software-Angebot 
finden Sie ın diesem Heft. GENIE DATA 


LESER- 


Zu dem: von Ihnen (übrigens aus meiner .. 
Sicht zurecht) verurteilten Programmaus- 
tausch von gewerblicher Software möchte 
ich wie folgt Stellung nehmen. 


Ich habe den Club im November 1983 von 
Herrn Klaus Schmidt übernommen, da’ er 
selbst keine Zeit mehr hatte, um die Lei- 
tung durchzuführen. Zu dieser Zeit be- 
stand die Möglichkeit, über...den Club 
Software unter den Mitgliedern zu tau- 
schen. Da mir diese Art der Betätigung 
auf Grund immer häufiger auftretender ge- 
werblicher Software zu illegal erschien, 
habe. ich in einem zurückliegenden Info 
die Mitglieder um passende Lösungsvor- 
schläge zum Thema Softwaretausch gebeten 
und dabei auch auf die Probleme mit käuf- 
licher Software hingewiesen. Der einzige ' 
Vorschlag kam von K. Schmidt, wie im 
letzten Info abgedruckt. 


Ich möchte nochmals betonen, daß im Namen 
des::.Clubs keine Programme, gleichgültig 
ob privat oder gewerblich, getauscht wer- 
den. Die Veröffentlichung von Software- 
listen der''Mitglieder wird ab sofort ein- 
gestellt. 


Genie TRS 80 User Club Bremerhaven 
Peter: Spieß 

Trugenhofenerstraße 27 

8859 Rennertshofen 1 


Das dieser Club den Programmtausch einstellt, 
finden wir sehr nachahmenswert! 

Wenn Sie, als Leser, Mitglied in einem User-Cliub 
werden wollen, können wir Ihnen zum Beispiel 
den oben genannten sehr empfehlen! 

Wenden Sie sich dann bitte an die oben abge- 


druckte Adresse. GENIE DATA 








| 
| 
| 
| 
| 
| 
| 


®: 
| 
| 
| 
| 
8 
| 
3 
I 
| 





SOFTWARE 
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COLOUR GENIE HARDWARE 


Automatische Cassettenrecordersteuerung 
mit Einbauanleitung 


oder 16K-Erweiterung mit Recorder- 
steuerung auf einer Platine mit Einbauanleitung DM 119,80 


_ UNNUMMER = 


Dieser Artikel ist für jeden 
der schon mal vor dem Problem 
gestanden hat, wie er seine Pro- 
gramme vor unerwünschten Ver- 
änderungen durch Fremde schützt, 
geschrieben. Auch ich stand vor 
diesem Problem und kam zu 
dieser Lösung, die zwar die 
Möglichkeit der Programmverän- 
derung nicht völlig unterbindet, 
aber doch sehr erschwert. 

Was ist UNNUMMERN? 
Jeder wird wohl schon etwas von 
Renumbern gehört haben, wobei 
die Zeilennummern eines Pro- 
gramms unter Berücksichtigung 
eventueller GOTO’s und GOS- 
BU's in einer bestimmten 
Schrittweite RENNUMMERT 
wird. 


Datenrecorder-Probleme? 
Muß nicht sein! 


DM 24,80 


Mit unserer Zusatzplatine werden die Daten digitalisiert. 
- in jedem normalen Recorder einzuschleifen! - 


Mit Einbauplan 


Für die Alten” 


Modul DM 98,- 


Leveimeter Nachrüstsatz kompl. mit Einbau- 


anleitung 


DM 19,80 


Commodore VC 20 + VC 64 
Cassetteninterface Vers. 1 mit Schaltern mit Bedienungs- 
anleitung {wird nur auf den Port gesteckt). 


„Für. alle handelsüblichen Recorder 


. dito Vers. 2 


DM 29,80 


‚mit automatischer Motorsteuerung für den Recorder. 


Mit Bedienungsanleitung 


DM 36,80 


‚Light Pen für C 64 in Vorbereitung ... 
_NDR-Computer-Bausätze bei uns! 








EEE ARERT 


Tegeder & 


SIPE 


EN RI 


UNNUMMERN ist das Gegen- 
teil davon; es werden nämlich 
alle Zeilennummern gleich Null 
gesetzt, sofern diese nicht von 
GO’s (GOTO oder GOSUB)} be- 
troffen sind. Man muß deshalb 
auf GO’s Rücksicht nehmen, weil 
die nach einem GOTO oder 
GOSUB stehende Sprungadresse 
im ASCII (American Standard 
Code for Information Interchan- 
ge) abgelegt ist und erst zur Zeit 
der Programmausführung in eine 
absolute Adresse umgerechnet 
wird; setzte man die Nummer 
der entsprechenden Zeile auf 
Null, träte ein UL (Undefined 
Line} ERROR auf. 

Vorgehensweise 
Zunächst wird das Programm mit 


Hilfe eines Assemblers eingetippt, 
assembliert und auf Kassette ge- 
speichert. Sodann geht man ins 
Basic zurück und lädt UNNUM- 
MER mit Hilfe des SYSTEM-Kom- 
mandos. 

UNNUMMER startet automa- 
tisch und schiebt den Basic-An- 
fang in höhere Speicherbereiche, 
so daß es selbst vor dem Anfang 
von Basic liegt und dort akti- 
viert werden kann. Nachdem der 
Rücksprung zum Basic erfolgt ist, 
kann man ein Basic-Programm 
laden oder eintippen. Wenn ein 
Basic-Programm im Speicher ist 
und man PRINT USR O0 ein- 
gibt, dauert es je nach Länge 
des Programms kürzere oder län- 
gere Zeit, bis der Computer 




















sich wiedermeldet. Wenn er sich 
wiedermeldet, ist Ihr Programm 
ungenummert. Sie können es nun 
auf Kassette retten oder laufen 
lassen, aber nur noch schwer 
verändern. 

Viel Spaß beim Schützen Ihrer 
Programme! 





SOFTWARE 


O0O100 3 KKRZKEKTKKKKKRKR UNE KIT EOOEIOKK KU UI KK KIKT KK KK KIN 


IKAKRKX 
00200 ;X% 
xx 
00300 8% 
xx 
00400 ı 8% 
x 
00500: &% 
3% 
0000 ı%% 
Rx 
00700 
ZXXKRKX 
A1E2 00800 
4lEZ C3EF42 00900 
AZEI 01000 
AZETF 3SECY O1100 START 
42EB I2E241 01200 
AZPEE 212844 01300 
A2F1 22440 01400 
aA2F4 CDAALB oO1500O 
A2F7 2100453 01400 
n« 
AZFA 22BEAO 01700 
42FD C3181A 01800 
fe. 
4300 ED730544 01900 BEGINN 
rn. 
4304 312644 02000 
4307 CDS3343 02100 
ilen 
02200 
430A DD2AA440 02300 
ASÖOE DDES 02400 
4310 DDE1 02500 LOOFO 
4312 DDAECO 02600 
HL. 
4315 DD&s501 02700 
4318 7C 02800 
43197 B5 02900 
431A 2005 O3000 
431C ED7BOA444 03100 
zur 
4320 C7 03200 
4321 ES 03300 COLFO 
4322 2B 03400 


von 


ORG 


LD 
LD 


CALL 


LD 


RET 
PUSH 
DEC 


UNNUMMER 
Joerg Tegeder 
Keplerstrasse 5 
D5S20& Neunkirchen 


Tel.» 02247/ 4147 


SRREREKRRRNAKKKHKEUKKIKT EEK UKK KLINKE KEKRERKI KEIN 


AlEZH sAutostart: 

START 15.0. 

4ZE9IH 

A,OC9IH ;Autostart zuruecksetzen. 
(41E2H) „A 35.0% 


HL,„ENDE ;Stackebenen reservieren. 
40AAH) „HL zabspeichern. 
1BAAH.......zin. NEW: springen. 

HL,BEGINN sUSR- Adresse setze 


(AOBEH) „HL sen 


1A18H  ;Ruecksprung in BASICSschlei 

(STACK),SP ;Stackpointer siche 

SP,ENDE-2 sUnd  initialisieren 

FINDEN ;von 60... angesprungene Ze 
smarkieren. 

IX, 40A4H) BASICtextanfang. 

IX 

IX sPointer auf Text nach IX. 

L. (IX+0) ;Zeilenpointer nach 

H, (IX +1) ;s.D. 

A,H ‚=0 7 

Li 35.0. 

NZ, COLPO snein, weitermachen 


SP, (STACK) ‚sonst Stackpointer 
srueck und fertig. 

HL. ssanst retten. 

HL szeigt auf letztes Byte der 


EHEEENEENEHTNIEENTENSEETLLTSEREACTENEN 





4323 
432 
4326 
4327 
le. 
432 
432D 
4231 
ASZE 
335 
igen. 
4337 
43IB 
4353D 
te 
AZAO 
4343 
4344 
4345 
4347 
4349 
A3Z4A 
434E 
434D 
asar 
4351 
4354 
4355 
4357 
4359 
4358 
435D 
435F 
4361 
43653 


Zeile 


4365 
4368 
ASbR 
43456 
43&6D 
A36F 
4370 
4371 
4372 
azTE 
4375 
eils. 
4376 
4377 
4378 
4379 
437B 
4A37D 
AZTF 
4381 


4384 
4386 


7E 
Sb00 
B7 
ZOET 


DDS50200 
DDEH0300 
18DD 
DDES 
DDZAA44O 


DDES 
DDEI 
DDALEOO 


DD5401 
7C 

ES 
2003 
DDE1 
E93 

ES 
0504 
DD2F 
10OFC 
DD7EOO 
B7 
=BE4 
FEFF 
2BEO 
FEFS 
28DE 
FE22 
ZO1A 
DDZE 


DD7EOO 
FEZ2 
2811 
B7 
2BCC 
Di 
DS 
ES 
AF 
EDSZ 
ZB 


7C 

BS 

Ei 
2860 
18E& 
DDES 
FEBD 
CC99453 


FE9I1 
EC9943 


O3500 
036500 
O3700 
0FB00 


03700 
04000 
04100 
04200 
04200 


04400 
04500 
04600 


04700 
04800 


oA Den 
Tg 


05000 
05100 
05200 
053500 
05400 
05500 
05500 
05700 
05800 
05700 
O85000 
06100 
05200 
06300 
08400 
DA500 
06500 


06700 
05800 
06700 
07000 
07100 
07200 
07300 
07400 
07500 
07800 
07700 
07800 


079700 
080009 
OB100 
08200 
08300 
08400 
08500 
084500 


08700 
08800 





FINDEN 


LODF1 


EoöLPi 
LOOF2 


LOOPST 


LOOP4 


CONTI 


GENIEDATN 7 


SOFTWARE 
LD As {HLI spruefen : =0 7 
LD {HL},O z;gleich Null setzen. 
OR A = 0? 
IR NZ,LDOPO snein, naechste Zei 
LD (Ix+2),0 ‚sonst ZNR = 0! 
LD (IX+37),0 15. 0« 
JR LODPO sund naechste ZNR. 
PUSH IX Pointer retten. 
LBD IX„(40A4H) sauf erste Zeile ze 
PUSH IX 
POP IX Pointer nach IX. 
LD L,„ (IX+O) Pointer auf naechs 
LD H, (IX+1) ‚Zeile nach HL. 
LD AH = 0? . 
Ur L i5.0. 
JR NZ COLP1 ‚nein, weiter. 
POP IX ;IX zurueck. 
RET sUnd fertig. 
FUSH HL ‚sonst retten. 
LD B,4 ıIX um 4 erhoehen. 
INC IX ı5.0. 
DJNZ LDOF2 
LD A„ {IX+0) ;A=Zeichen. 
DR A ‚=0 7? 
JR Z,LOOP1 3;ja, naechste Zeile. 
EF OFFH ı=FF (schon veraendert) 7 
JR Z,LDOOF1 ;3;a, naechste Zeile 
er 93H ıREM..? 
JR Z,LOOFi1 3;a, naechste Zeile. 
CP zur 8 2 7 3 
JR NZ CONTI snein, weiter. 
INC EX: sonst suchen bis Ende der 
oder zweiter ” gefunden. 
LD A, CIX+O) ‚Zeichen in A. 
EP 467 ; n 7 
IR: Z,CONTi 5;3;a, weiter. 
OR: A ı=0? 
IR Z,LOOP1 ;;a, naechste Zeile. 
POP DE Ende der Zeile ? 
PUSH DE 5.0. 
PUSH HL ;HL sichern. 
XOR A sCarry Clear. 
SEC HL..DE ıpruefen ob Ende der Zeile. 
DEC HL. swenn jetzt = O, Ende der Z 
LD A,H spruefen ob O0. 
OR L 5.0 
POP HL. HL zurueck. 
JR Z,LODOPI1 ;;a, naechste Zeile. 
JR LOOP4 
PUSH IX IX retten. 
[EP 8DH :GOTO ? 
CALL. Z, TRIFFT sZeile(n) markieren 
EP 71H :GDSUB ? 
CALL Z, TRIFFT 15.0. 




















4389 
438R 
438E 
4390 
4395 
4395 
hen. 

43977 
4397 
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FE9IS 
CC99453 
FECA 
LCC9743 
DDEI 
DD23 


18B8 
210000 


n wer 


439IC 
Zahl 

AS9F 

AZAZ 


F 


43A4 
ASZAS 
43A& 
43A7 
4SAB 
AzA? 
a3Aa 
AZAB 
AZAD 
4A3RAE 
ASAF 
45B1 
4382 
43B5 
43B7 
hen. 
43B7 
GOTO/ 


43BC 
43BD 


110000 
EDEC43 
S00D 


62 
&öB 


DD7EOO 


B7 
CB 
FEFF 


[8 

FE2O 
28F2 
FEZC 
28DO 


E37 
EDSBAA44O 


FDSEO2 


FDI603 


089700 
07000 
097100 
07200 
OFS300 
07400 


09500 
09500 


07700 


097800 
079700 


10000 
10100 
10200 
10300 
10400 
10500 
10400 
10700 
10800 
10700 
11000 
11100 
11200 
11300 
11400 
11500 


11600 


11700 
11800 
11700 
12000 


12100 
12200 
12500 
12400 
12500 


12500 
12700 


12800 


12900 
13000 
13100 
13200 
13300 
13400 
13500 
134006 


13700 





TRIFFT 


LDOPS 


EONTZ 


LODPS 


MARK 


LDOF7 


95H 

Z, TRIFFT 
OCAH 

Z, TRIFFT 
1X 

IX 


LOOPZ 
HL,O 


DE,O 


ZIFSUC 
NC, CONT2 


H,D 
L,E 
HL, HL 
HL,HL 
HL,DE 
HL,HL 
E,A 
D,o 
HL..DE 
DE,HL:: 
LDOOPS 
DE, HL 
MARK 
1X 

1X 


ee) 


A 


Z r 
OFFH 
Ku 
20H 
7,L0O0P& 
2CH 
Z, TRIFFT 


DE, (40A4H) 


DE 


IY 

E, (IY+O) 
D, (IY+1) 
A,D 

E 

7 

DE 

E, (IY+2) 


D,. (IY+3) 


sELSE (60... weggelassen) 7? 


probieren. 
ıTHEN {s. ELSE) 7? 

sprobieren. 
swieder da. 


ınaechstes Zeichen untersue 


Zahl soll in HL geschriebe 


‚den. Zwischenspeicher fuer 


Ziffer suchen. 


‚wenn Ende der Zahl 


‚abbrechen. 
Zahl nach: HL. 
;5.D. 
;smit 10:multilpizieren. 
sbis jetzt'mal A. 
ımal:'S% 
ımal::1Q, 
plus Ziffer. 
5.0. 


.ogin. DE speichern. 
.qgnaechste Ziffer 


sZNR in HL. 


';Zeile wird markiert. 
zuruecksetzen ! 
.gnaechstes Zeichen untersuc 


spruefen ob-ON ... 


;-5UB. 
Zeilenende ? 
3j8, zurueck. 


sZeilenende {schon markiert 


ja, fertig. 
Leerzeichen ”? 
3a, :naechstes Zeichen. 


" 3Komma ? 
wie qdas Zahl untersuch 


;Adresse von naechster Zeil 


; IY. 
‚letzte Zeile ? 
5.0 

;soder: DE = 07 

ıs.0 


1353, fertig. 
ıDE retten. 


aktuelle Zeilennum 


‚nach DE. 





BASICanfang nach I 








na ansehe une nern Raritan nen ste hr 





TER taerinan m ra En ERENTO HE ENEETISTERNTINEENRSEERNTR EIER SEITERTTETTESSTE 


azEil 


ES 


ummer ) 


42EE 
are: 
43E5 
aIzgs 
a23E7 
4zEB 
43ER 
chen. 
43EU 
en. 

43EE 
her 

42F1 
azrFz 
a:rfs 
43F5 
azrFoö 
A=SFB 
hen. 
a>FA 
AZFEC 
+ ZFD 
4>3FE 
4400 
ge 


3401 
igen 


n 


4407 
4404 
4405 
4405 
4426 
4427 
4428 
OGOO 


AF 
EDS2 
Ei 
Di 
D8 
2817 
ı18E2 


bD2E 


DDIEOO 


E7 
[8 
FEFF 
CB 
FEZO 
SF 


D&S0O 
Er 
Da 
FEOR 
[9 


iB 


SEFF 
12 


59 


GO 
oo 
006 


13900 


129700 
1400 
14100 
14200 
14200 
14400 
14300 
14:00 


14700 
14800 


13700 
15000 
15100 
I1S2H") 
15300 


15400 


15300 
15800 
15700 
15860 
15790 


16000 
18100 


16200 


18200 
15400 
183500 
1,400 
16700 
18800 
1,900 
17000 


17100 


86000 TOTAL ERRORS 





ZIFSUC 


SETZ 


STACK 


ENDE 
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SOFTWARE 
PUSH HL sangesprungene INR (Zeilenn 
iretten. 

XOR A ‚Carry freimachen. 

SEC HL.DE ssubtrahıeren. 

FOP HI_ :ZNR zurueck. 

FOr DE ;DE zurueck. 

RET E groessere Z/NR: fertig. 

JR Z,SETZ :xselbe Zeile, markieren ! 

IF LOOF7 ‚sonst naechste ZNR untersu 

INC IX ‚nach naechster Ziffer such 

LD A„ (IX+O) ‚ASC- Wert von Zeic 

DR A ;gleich Null ? 

RET Z ;5j&, Zurueck. 

EF OFrFH ;=FF (schon veraendert) 7 

RET 4 I 58 

cr ZOH ıpruefen ob Space. 

JR Z,ZIFSUC “ja, naechstes Zeic 

SUR ZOH ‚Ziffer ”? 

tErF ‚Carry invertieren. 

RET NE snein,. zurueck. 

Er 10 ;spruefen. ob > 9. 

RET :Zurueck. mit entsprechend g 
ısetztem Carry. 

DEC DE ıDE zeigt auf Ende der jetz 
; Zeile. wo normalerweise ei 
;Nullbyte steht. 

LD A.OFFH Dieses wird nunr durch 

LD {DE}, A ;FFH ersetzt. 

RET ıdas war's. 

DEFS 20H ‚Platz. fuer Stack. 

NOF 

NOF 

NOP 

ERID 


... nehmen Sie teil | 
am grossen GENIE DATA- 


Programmierwettbewerb ! 
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Walter Christ Dieses Programm wurde speziell 





für die Seikosha Drucker GP 80/ 
100 geschrieben und druckt Hül- 


a en 

een 

a et s 

Im nn len für Musik- (Programm) Cas- 
In setten. Es wird hierzu über die 
nm 


Grafikroutinen eine eigene Propor- 
tionalschrift erzeugt. Dieser Pro- 


= grammiteil ist universell anwend- 
SI ZTIEN ruc er bar, Text in Variable A$ schrei- 
Sn ben, dann GOSUB 8500. 


Kö ee 
2 SSETTENBESCHRIFTUNGSPROGRAHM VERSIGEN 2.0 

Er Do JOAN MALTER CHRIET GÜLDBACH 

IE RR EEE HERRN EAN ER EN ER 
2a CLE 

20 PRINTSFRINTUYKRBESETTENBESCHRIFTUNGSPRÜGRAHM 21.0” 
O0 PRINTZPRINT 

35 ELEBRZODOO 

#0 DIM ABC2OS 

Z0O PRINT" RAUSCHUNTERDRUECKUNG  J=DOLBEY BR &2 
ZIOZ AFHINKEYEZTERES""TNENZON 

2120 LINE INPUT PUERERSCHRIFT SEITE RB "rARCo) 
LEO FORK=ITOESPRINTR:SLINEINPUTARCHSSNERT 

240 LINEINPUTFUEBERSCHRIFT SEITE B "A810 
250 FOR: De me MERT 

260 LINE INPUT"DECKEL ZEILE 7 ".BOg 

I7TO LINE INPUTTDECKEL ZEILE & "DEE 

ITS LEINE INPUT"NARME "ANE 

230 LPRINTCHRECZISCHRECZSSICCHRECZEISCHRECZSSISCHRECAZED: 

ZPO LPRINTCHRELCHEI: CHRECHOFTCHRELCLLI I SCHRECTSS) 

200 I=VALCHEDELPRINTCHRECZSESISCHRECZE I SCHREKZSIGCHRECIZEN SNIFI= IT 
HENDE="DOLBY B’:SUZURESOOELZEIFI=ZTHENDES"DOLRY GR 3BOBURESOO 

220 BE=" BI '#STRINGEUCSO- LENCRECOSIDIE,N "IARKOIRUENSE 

225 LPRINTCHRECZYIELPRINTCHRELRSS): 

220 GOEUR 2500 

230 LPRINTCHRECEIELPRINTCHRECZSSI: :CHRECZEI:CHRECEHSS): CHRECISEI: 
20 LPRINTEHRECHEDGCHRECEONSCHRECISZISCHAP(25S 37: 

"50 FORK= IFOSE 


ı 
SI 
an 
rm 
I 
Q 
” 
a 
eo 
Mm 
Ka 
= 
m 

S 


250 LPRINTCHRECSILPRINTEHRSCESSI FCHRECZEI SCHRE 25 CHRSC12E 
ZPO BESARCHI:EUEUBASOO : 


220 NEXT 

zoo LPRINTUÜHRSBCEIZLERINTCHRECZESI: SEE 

300 A#=”"  Byt#ETRINGECCHOÖ-LENCHELION ID /2,r7 7 RBECIO TEN." 

SIG LPRINTCHRECEIEGGSURZSOO 

SEO LPRINTCHRECHDSLPRINTUHRECZSSISCHRECHEISCHRECHSSISCHRECZIZ): 
E30 N ee 

SIO FORX=-IITOIE 

350 LPRINTCHRECHISLPRINTCHRECZSSI:CHRECZET, CHRECESITCHRE CIE 

SED ALZARCH> 

37TO GRSUBSSOO 

330 NEAT 

400 LFRINTCHRBCEHISLPRINTCHRECZEESIGCHRECZEIECHREKTSSIACHRECI TO) :CH 
BPCREISCHRETSOIICHERÜLSOTSCHREL 233) 

520 LPRINTCHRECIEIE"  P«MOBR:LPRINT" "+DIE 

ED LPRINTCHRECEIGLCHRECZSSED: me :CHRLEZSSY:CHRFU LIE I: ÜHRRBCHE 
:CHREKIEODS:CHREÜI SEI LCHRECZSS 

SEO LPRAINTCHRECLSIT” a ae 

340 LPRINTCEHRECISI 








EEE ENT RTERIER EISEN 





Burundi 





550 LPRINTCHRECHIGSCHREIZSSIGCHRECHEDLCHRECZSESI 





GENIEDATA 7 


sCHRECZE. 


SOFTWARE 





sCHRECZ 


:EHRPKEONGEHREC TTS CHRECZSNE 

550 PRINT"ENDE” 

555 MEHINKEIE 

SFO PRINTYNOCHEINMAL = 2 DRUECKEN” 
520 MERTINKEYEETCHESHFTNENSEO 


ZENE="ITTHENZSO 


00 END 





2540 
25435 
2550 
E20 


MIZO 


2 o O0 


IODD 


0,9590,9595, 9598 ,9600 , 96.10, 9E20, 9620,96 
0,2700,2720,2720,2730,9730,9750,9500,97 
5,97RO, G7ES 9790, 9795 9200 .,2805, 9210,98 


005 
u OLo 


Ö&, 2 BF 7 


Ba. 2 SE 3222 SEN 2 323 229 23227 SEE SEN EP 23 223 SE 22ER NE 39 ER EP SE 2 272 SER SER EN SEE 2 2 SEr 2er 2rnZr 2 

"UMNANDLUNG IN PRDPORTIONDLSCHRIFET 

TREE 

BERAERTH 

FÜRT=ITDELENCAE) 

NESNIDECHE.T)INGOSUBEPZO 

LPRINTCHREÜEITCHRECIE Er 

NEATT 

IFRSCCRENNG in 

TEBECCORESPFSANDAECCHR IN LIT TBENGÜSURTOFOLRETURN 

ENZUBSOFOSRETURN 

BNESCEREI-SLIGOSUBPSOO,PSIO,9520,95 
ß 


RE TURN 
ENBEGCAEI-TSGOSUBTENS VE3JO, 9235, 92J0,PEJS,PESO „VEES,WET 


5,9220, 9825, 790, 9295,9900,9500,9500,97500,97500 9, ISO, OO 


ee 


20,20020,20030, 20040, 10050, 10060, 10070, 10080, 20090, 202108, 20220, Z0 


220.10180.10238.10140,.20150,20160, 10170, 10120 





„204 90 
















9025 RETURN: 

HOEO UNGSECKEI- 21560 SUR2O200, Z0219,20220,I10Z30, 10290, IOZ 
Os RETURN 2 ’ 

9339 

tee 

el 

2500 LPRINTEHRE IE es = RETURN 

95I0 LPRINT CHRECZ DER; ERETU E a 

2520 en CHRECIELISCHARL LEI EHE SRETURN 

95IO LPRINTCHRECISEPI:CHRRERSL): PISCHRECISAISSRETURN 
9540 LPRINT CHREULSESSCHAECE 239) CHAR IE MYSCHRRCISEISLTRE 
TURN RR 

7550 LPRINTCHRECIEIP I ECHRECEHMILCHRECZOO)ETRETURN 

9560 LPAINTCEHRECIEZISOHRECRORFSCHALCHZ LEHRE( LSA) SCHRELZOR 53 REF 
URN ER 

9570 LPRINTCHRECIZBEILCHRECISEF IE ERETURN.: 

9320 LPERINTCHREÜIEENSCHRECZUS) AL TRETURN 

9590 LPRINTCHREUISFISCHRECIEE);ERETURN en 

Br LPRINTCEHRECH IDG CHRECH END: CHAMBER I ERS ENE Ten 

7598 LPRINTCHRE(CIARD:CHRECLE ADLCHRECIAEIELRETURN 

2500 LPRINTCHRECLSZISCHRECIBEONGTRETURN. 20 

920 LPRINTCHRECLI44CHRECL44)SCHRB (249), HRETURN 

2520 LPRINTCHRECITZISTRETLIRN 

9530 LPRINTEHRECEZY):CHRECESZEILCHRECITH) ERETURN 

E80 LPRINTCHRECIEEISCHRECLP SI SCHRECIEEN SG ERETURN 

2&E50 LPRINTCHRECIZZISCHRECTSS)LTRETURN 

9660 LPRINTCHRECHZEIZCHRECHIONLCHRECHOL IS OHRERCIPEIEERETLIRN 
9570 LPRINTCHRECISZISCHRECTOL) LCHRRCHISILCHRECIEZ ET RETURN 
SERO LPRINTCHRECISEISCHRECHTEISOCHRELZSET I SCHRECI SEI TRETÜURN 
9590 LPRINTCHRECZORIECHRECTOL) LCHRELCHONILCHREKITEI: RETURN 
SFOO LPRINTCHRECIEEISCHRECZORI:CHRECZORI:CHRECEFE) RETURN 
9FIO LPRINTCHRECEZEILCHRECZIEILCHRELZTEISCHREKCLTH IS ERETURN 
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PF2O 
ITIO 
7EH 


aaO 


LEE, 
rn 


PRINTCHRECIZOISCHAFC 2ORILEHREEE POP ILCHRECIRO): ı RETURN 
Re ee een 
LPRINTCHREIISEN GG RETURN 


EPRINTCHRECZENDECHRECIGEI ES ERETURN 


LRRINTOEHRECIGEISCHRECIGSEDSCHRTEISE SG S RETURN 


LPRINTEHRECEZSEIGLCHRECZICODSCHRELISEDSCHREKISZI ST RETURN 


LPRINTCEHRSCLIEEDSCHRSCHTEDGSCHRSCHDEI:CHRECIFE SS: SRETURN 


LPRINTCHRECHSPISCHRECISEIGCHRECISFISERETURN 


LPRINTERRECZESP SCHALE CHON SG UN REUIZO SZ: RETURN 
LPRINTCHRECITEEDISCHRECHTSDGSCHRE CIE SI ES ERETURN 
LPRINTCHABKZEOIECHASCTPISGCHRECIEE N ;: RETLIRN 
LPRINTEHRSKZSSPISCHRECZOZ I SCHRECZOFI LS RETURN 
LPRINTENARCZES) TCHREL LEE GCHRECISEN TS RETURN 


9E0O LPRINTCEHREKCITEEISCHRECHS SI ECHRBEKZZO)SCHREKZAÄZD SS RETURN 


2209 
950 
9525 
920 
ERS 
IEIO 
LIRN 

2235 
PEHAO 
VE 35 
250 
950 
EG 


9870 





2890 
DET 
2RON 

2205 

20020 
2O0OzFO 
20030 
IOOs0 
20050 
ZO0OSO 
IOO7O 
LIDOZO 
2000 
ZO200 
20220 
20220 

20230 
TURN 

20135 
LOLLO 
20250 
20180 
202170 
2OZZO 
20220 
ZOZOO 
ZO#J0O 
ZORZO 


LPRINTCHRELESSILÜHRECLZEN:CHRECTSH),TRETLRN 


LPRINTCHRECZOFSIECHRECZEIILCHRECIPII LS RETURN 
LERTNTCHRECISOÖSSCHRECLPEN:EBASCIPOP TS RETURN 


LPRINTEHRBCZEPISCHRECZSEI:CHRECZIEILCHRECEZO)z RETURN 
LRRINTTZARECH SS SÜHRECLPSSHCHNECIINI PL: RETUÜRN 
LPRINTCHRECZEAISCHRECISEISCHRECHSEILCHRECE SED SCHRECZ EN Is ERET 


LPRINTEHRECZSFPDECHRECZIOISCHRECET EI SCHRECZSTF ILS RETURN 


LPRINTENHREKZEENSCHRECLP SO SÜHRECLZEN ST RETURN 


LPRINTEHRECZSPISCHRECITEITCHRECIIED: RETURN 


LPRINTEHRECIERIGCHREC LP SNGCHRSC TEE I: CHREÜZZONG:METUAN 


LPRINTCHRECESSILCHRECIEEISCHRECIHEI LCHRELLTE) «= RETURN 


LPRINTECHRECZ PSP SÜHRFCHONDSCHRECHOFN:CHREC ITS SGG RETURN 
LPRINTCHRECZSODLCHREKCESTPIECHRECISOI LS RETURN 
LPRINTEHRFCEPODLCHRELLIZIGCHRRELIPOR SS MRETURN 
LPRINTCHRBECISEIS:CHREKZZIIGCHRECISED : = RETURN 

LPRINTCHREC ZSSILÜHREC EEO2ZEHRECZINSGOCHRE LEO SCHREKCH SID HE RET 


LPRINTEHRECZZSOISCHREKZSZIG:CHRECZIONL RETURN 


LPRINT UBRECIS PIECHRRCHSEDSCHRECIS EN STRETURN 


LPRINTCHRECEZEISCHREÜZIOSLCHRECHOZISCHRECZUR) SL ERETURN 


LPRINTCHRECZSSISCHRECTISUIE CHRECHAHE I ES RETURN 
LPRINTEHRECITEILCHRECIDROILCHRECZIEI SCHRECISZ IS SRETURN 
LPRINTCHRECZSEI: EHAELCZ OOSCHARCIFEILTRETÜURN 
LPRINTCHRECITEISCHRECROOI: LCHRECZOO)FFRETURN 
WPRINTENRECITEPSÜHALCZOON SCHRRCA SP>EERETURN 

LPRINTCHRECZIEILCHRECHIEI: CHRECZEEIFSRETURN 

LPRINT CHRECIEETTOHRSLHSRITEHRECH SPIERBETDEN! 
LPRINTCHRECHIEISCHRECZZEILÜHRECHFEISSRETURN. 
LPRINTCHRECISE):CHRECIEEI:CHRECLEO) :EMRETURN 
LPRINTCHRSCZSOIGSFRETURN 

LPRINTECHRECISON:CHRFECLTZISCHRECZ 1503: RETURN 

LPRINT CHRECHSFISCHRE(ITE Ir CHRECZOOIE:RETURN 
LPRINTCHRECZSSILÜBRECLDZ I: ERETURN 
LPRINTCHRECZIEDISCHRECISEISCHRECHIFEIGSCHRECIIGISCHRECHIONZERE 


LPRINTCHRECHHEI:EHREC LEE) HCHRECE FON TERETURN 
LPRINTOCHRECETEIZÜHRECZOO:OHRECIFS>: RETURN 
LPRINTUHRECZFEISCHRECISZIS:CHRECISE IS RETURN 
LPRINTCHRECLTIEISCHRSCLSTI:CHAFCZRETESRETURN 
LPRINTCHRECHFEZI:CHRECIIGE) SE RETURN 
LPRINTEHRFCZOZFSGCHRFCTSTPSCHRFCIGER N SS METLRN 
LPRINTCHRECZSEIHFCHRECESFD: sCHRECHOO) A SRETURN 
LRRINTCHRECZEEDGCHAFCLPZISCHRELZPZI SG HRETURN 

LPRINTCHRECIE II LCHRRCISEILCHRECIEN 2:2 RETURN 
LFRINTEHREULEISSCHRRCIEZ SECHRELIF EDS CHRFK LPZ I: CHRECZEF DE EME 











TURN 


SOFTWARE 


GENIEDATA 13 


IDEIO LPRINTOHREUZIFISISÜHRECIEOI:CHRYCZ ZEN: NRETURN 






ZOO LPRINTCHNETS 


NEON METE 






Schi DIES: RETURN 


JIOFSD LPRINTEHRECHOOSSCHRECEIENSCHREUZ IE I SCHRECHOOI x ERETURN 


- GENIEDATA 


Programmierer 
Wettbewerb 


Es gibt Wettbewerbe, bei denen 
eine elektronisch gesteuerte Maus, 
angetrieben von einem oder meh- 
reren Elektromotoren, auf Rä- 
dern, ein Labyrinth durchqueren 
muß. Diese Mäuse sind natürlich 
sehr aufwendig konstruiert, denn 
sie haben zum Einen eine kom- 
plette elektronische Steuerung, 
mit Prozessor, ROM und RAM, 
zum Anderen Sensoren, um die 
Labyrinthwände zu erkennen, 
und schließlich haben sie auch 
noch Räder, Getriebe usw. 

Was Sie tun sollen, ist ganz 

schneli erklärt: 
Sie sollen ein Programm schrei- 
ben, das in der Lage ist, eine 
Maus durch ein Labyrinth zu 
steuern. 

Aber, aber, Sie brauchen doch 
keinen Schreck zu bekommen! 
Sie müssen ja keine Maus bauen, 
sondern nur ein Steuerprogramm 
schreiben! 

Und das machen wir Ihnen 
ganz leicht. Im Anschluß finden 
Sie ein Programm, das Ihnen auf 
Ihrem Bildschirm ein Labyrinth 
aufbaut, und zwar auf Zufalls- 
basis. Es entstehen also immer 
wieder neue Labyrinthe. 

Und das stellt auch schon die 
erste Anforderung an Ihr Pro- 
gramm. Ihre „Maus’ muß durch 


ein x-beliebiges Labyrinth finden, 
ohne hängen zu bleiben. Das ein- 


zige, das bei jedem Labyrinth : 
gleich ist, ist der Ein- und Aus: 


gang. Der Eingang liegt immer 


bei 0,2 und der Ausgang : bei. 
123,43. Mit diesen Zahlen sind: 
die Grafikkoordinaten beim :Ge-: 
nie/TRS 80 gemeint. Wie: soll: 


jetzt Ihr Programm aussehen? 
Ihre Maus muß ein Grafikpunkt 
sein, der ständig sichtbar. bei 
0,2 startet und bei 123,43: auf- 
hört zu laufen. Der Punkt: darf 
auf seinem Weg durch das Laby- 
rinth niemals unsichtbar werden! 

Weiterhin darf Ihre Maus nichts 
am Labyrinth ändern. Sie: darf 
also nicht durch Wände: laufen, 
oder Spuren hinterlassen !: Und 
Ihr Programm darf nur::in:Basic 
geschrieben sein! Also keine Rou- 
tinen in Maschinensprache..:kein 
Compiler oder ähnliches: Anson: 
sten — erlaubt. ist, was: gefällt: 
Natürlich sollte: Ihre. Maus mög- 
lichst schnell durch. das: Laby- 
rinth kommen, denn:die‘schneilste 
Maus gewinnt! BEHEE 

Was Sie tun: müssen, ist: also 
folgendes. Sie. tippen: unser Laby- 
rinth-Programm: ab, wobei Sie an 
diesem Programm nichts verän- 
dern dürfen! Ab Zeile 100 schrei- 
ben Sie jetzt das Steuerprogramm 


'schnittszeit, und weris: 





für. Ihre.’ Maus. Wenn Sie fertig 
sind, speichern Sie alles auf Cas- 


sette und schicken es uns. Dann 
nehmen ‘Sie am Wettbewerb teil! 
Wir lassen: Ihre Maus dann drei- 


mal::laufen,; nehmen .tie Durch- 
aus, wo 
Sie liegen. Einsendeschiuß ist der 
10: .Juni:::1984. In der nächsten 
GENIE: DATA können wir dann 
warscheinlich schon einmal be- 
richten; wie es aussieht. 

Und:was erwartet Sie, wenn 
Sie gewinnen ? 

Den‘; Gewinner erwarten 200,-- 
DM, den: Zweiten und Dritten 
ein::.kostenloses GENIE DATA 
Abo. 

Ausserdem erhält jeder Teil- 
nehmer. von uns eine Ehrenur- 
kunde. Übrigens: Der Rechts- 
weg. ist bei unserem Wettbe- 
werb selbstverständlich ausge- 
schlossen. 

Jetzt also los, lassen Sie die 
Mäuse flitzen, und nehmen Sie 
an unserem Wettbewerb teil! 
Einsendungen an: 

H. Hübben, 
Kennwort Mäuserennen 
Mühlbachstraße 2 
5429 Marienfels/Ts. 

Viel Spaß wünscht Ihnen Ihre 
GENIE DATA Redaktion! 











ee Eee are ETETRERREAE Er Fars EREBEENETTEnae eaarr 
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Listing für Berie 1. II, ung? TES Sc 


ELS 

ONERRORGOTDES 
FORI=OTO122:SET(I.O):SETEL.45} :NEXTI 
FORI=UOTO45:SET {0.13 :5ET IE, IY:NEXTI 
FORX1=OTO122STEFT: IFFOINT (Xi. 45) THENX=X1: Y=45: 50SUB1 1 
NEXTXI 

FORY1L=OTD4SSTEFZ: FORX1=0OTDLZESTEFT 

IFFOINT (X1.Y13 THENX=X1:Y=Y1:GDSUE11 

NEXTX1:NEXTYI 
0 GOTOrO: "Ab 100 startet Ihr Maus-Frogramm!!t 

1° Ab gesetztem Funkt, Wand ziehen 

IR Is 

12 R=RND (4) 

14 2=2+1: IFZ=10THENZ=1: RETURN 

5 IFR=1ITHENIFFOINT (X-3, Y9=-1THENGOTOILT 

1& IFR=ZTHENIFFOINT (X+3,Y)=-1THENGOTOLT 

17 IFR=ZTHENIFFOINT (X, Y-2)=-1THENGOTOIS 

IB IFR=4THENIFFDINT (X. Y+T) =-1THENGOTOIS 

1979 FORI=1TOF 
20 IFR=1THENX=X-1 
21 IFR=ZTHENX=SXH+1 
AZ IFR=3THENY=Y-1 
Zar IFR=4THENY=SYr1 
24 SET(X,Y) 

25 NEXTI:O=RND ZI): IFO=1THENGOTOLSELSEGOTOLT 
=2& FESUMEII 
7G RESET(0O,2):RESET(1Z3.42) 

190 " Hier muß Ihr Froagramm beginnen ! 


DW Neu tlıe 


Klier nu, Smerneenninnnn Tennesse en 








KURSUS 


Thomas M. Binzinger 


Assembler - 
meer Teil 


inzwischen schon ein wenig abge- 
griffen ist, fangen wir diesmal 
gieich mit der Auflösung der Fra- 
gen vom letzten Teilan: 


1. Kann man die Zahl 260 in 
einem Byte darstellen ? 
Natürlich nicht, aufgrund des 8 
Bit Codes kann man ja nur 2 hoch 
8,, also 256 verschiedene Zahlen 
darstellen. Die größte darstellbare 

Zahl ist also 255. 
2. Malen Sie ein Byte auf, 
daß die Zahl 3 darstellt. 
00000011 
3. Kann man mit einem Bit 
die Zahl 1 darstellen? 
Na klar! Wenn es an ist hat es 
ja den Wert 1 (=Strom). 

4. Ist ORG eine Anweisung an 

die CPU? 
Nein! Im Text habe ich. ausführ- 
lichst erklärt, daß es nur. eine 
Hilfsanweisung für den. Assembler 
ist. 

5. Ist LD eine Anweisung für 

die CPU? 
Eigentlich schon, den Lade mit ist 
ja ein Befehl, den die CPU aus- 
führen soll, aber für die ganz 
pingeligen: Die beiden Buchstaben 
selber sind natürlich kein Befehl 
an die CPU, sie stehen nur für eine 
Zahl, die diesen Befehi darstellt. 
6. Ist „HL,4400H’' ein Argument 
oder ein Befehl? 

Es ist das Argument zum LD 
Befehl. 

7. Warum gehen die Daten in 
einem ROM verloren, wenn 
man den Computer ausschaltet? 
Ja, ja, bei solchen Fragen zeigt 
sich, ob man ein aufmerksamer 
Leser ist. Die Daten gehen gar- 
nicht verloren, jedenfalls nicht die, 
die in einem ROM stehen. Allen- 
falis die Daten, die in einem RAM 

stehen, gehen verloren. 

Jedem, der hier etwas falsch 
gemacht hat, empfehle ich drin- 
gend, sich noch einmal die ersten 
beiden Folgen durchzulesen. 

So, und nun weiter. Erinnern 
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ec Computer Studio GmbH 
Elisabethstraße 5 

4600 Dortmund 1 

Tel.: 0231- 528184 

Tx 822 631 cccsd 


COMPUTERSYSTEME 


GENIE IH 
64KB RAM, 2x720 KB Disk-Speicher, 
Bildschirm 64x 16 oder 80x24 Zeichen. TRS-80? 
Mod. 1 kompatibel 

CP/M* fähig 

GENIE I 

64 KB RAM, Microsoft-BASIC, Bildschirm 64x16 
Zeichen, Level IV ROM, TRS-80® Mod, 1 
kompatibel 

NEU: TANDY MODELL 100 

COLOUR GENIE 

Neueste Version mit MeRinstrument!| 
16KB RAM, Microsoft-BASIC & Grafik, 16 Farben 

auf Ihrem Farbfernseher, TRS-80° Mod, 1 

BASIC kompatibel 570, 
dto. mit 32 KB RAM 625,- 
“TRS-BO ist eingetragenes Warenzeichen der: Tandy 
Corp. =CP/M ist eingetragenes Warenzeichen von.Digital 
Researcn. 


PERIPHERIE 


Slim Line Laufwerk, 40 Track, SS/DD, 
250 K-Byte Speicherkapazität 


Slim Line Laufwerk, Doppelflopny:; kompl. 
mit Gehäuse, Netzteil u. Kabel 


Andere Laufwerke und Kapazitäten:auf Anfrage 
lieferbar, 


Floppy Disk Controller für Video:Genie.und Tandy ; 
(double u. single density} incl. ‚Drucker Interface und 
2 cc 400 Disk, im Gehäuse mit Netzteil und Kabel: : 
voll Software kompatibel zu: 
Tandy TRS-80® 


Expansion Interface für TRS- 80° incl, 321 K RAN 925, er 


Double Density Controller: für. Tandy und : EE 
Video Genie 198,-- 


16 K Erweiterung für. Colaur.Genie incl. Einbau 79, 


Star Drucker Gemini-+10X,.120 Z/sec, 
1920 Pkt. pro Zeile 998,-- 


Zenith Monitor grün 0. bernstein entspiegelt 319,- 
Datenrecorder 6019 (bitte Datenblatt anfordern) ..149,-- 


EERRTBDUEEEETE 


BASF Disketten, Qualimetrik, 10 Stück: 
Verbatim Disketten mit:Verstärkungsring 


























6900,-- 


998,-- 
ab 1850,-- 









625, 






.1499- 














































: 49, 


10 Stück,.DD, mit Archivbox Ir 
Datencassette‘C 20 3,30 
Farbbänder für: 
Tandy Line Printer I, It u. IV je ; 15,- 
Tandy: Line Printer Iilu, V je 19,50 
Tandy DW It ie 17,- 
Epson MX 80 ie 19,- 
Itoh 8510, 1550 ie 20,-. 
Oki Microline, Star je 9,50 


Rest auf Anfrage. 

Alle hier angebotenen Produkte sind ab Lager lieferbar. 
Alle Preise incl. Mehrwertsteuer. 

NEU: 16 aa Colour Genie Softwaraliste Ag 










ostenlos anfordern! 
Wir suchen ständig neue Programme für Colour Genie! 
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wir uns: Eine Speicherstelle ist 
immer aus 8 Bit aufgebaut, da- 
her kann sie eine von 256 verschie- 
denen Zahlen darstellen. Das ist 
zwar schon etwas mehr als die 
zwei Zahlen in einem Bit, aber 
immer noch nicht genug. 

Also hängen wir zwei Speicher- 
steilen zusammen und, voila, ha- 
ben 16 Bit! mit 16 Bit ist die 
größte Zahl die wir darstellen kön- 
nen 2 hoch 16 = 65536. Das ist 
auch die größte Zahl, mit der die 
CPU rechnen kann, denn auch sie 
benutzt diesen Trick mit den zwei 
Speicherstellen. Wie und wo, daß 
kommt gleich. 

Aber weil dies die größte Zahl 
ist, die die CPU verstehen kann, 
ist es auch gleichzeitig die maxi- 
male Anzahl von Speicherstellen 
im Computer. Sicher haben Sie 
auch schon diesen Satz gehört: 
„Die Z-80 CPU kann maximal 
64. K adressieren’. 

Und jetzt kommt die unver- 
meidiiche Frage: „Wieso 64K?"., 
Wir haben doch gerade gesagt, 
daß 65536 die maximale Anzahl 
ist. dann müssten es doch eigent- 
lich 65K, oder ganz genau, 
65,536K sein? 

Richtig! Wir können tatsächlich 
65536 Speicherstellen ansprechen, 
aber es sind trotzdem 64Kl EinK 
entspricht nämlich nicht, wie ich 
Ihnen letztesmal erklärt hatte, ein- 
tausend, : sondern‘ genau 1024 
Speicherstellen. 

Inzwischen sind Sie „reif’’ ge- 
nug, um sich das selbst zu erklä- 
ren. Denn auch das hängt mit der 
Bit Kodierung zusammen. Denken 
Sie an 256 ..., na, dämmert es? 
Und wenn Sie mir jetzt immer 
noch nicht glauben, dann nehmen 
Sie Ihren Taschenrechner und 
rechnen Sie nach. Na? Wenn Sie 
jetzt etwas anderes als 64 heraus- 
bekommen haben, dann müssen 
die Batterien des Rechners aus- 
gewechselt werden. 

An der CPU, die ja. auch eines 


KURSUS 


‚PETER, DER ASSEMBLER-KURS 
IST JA WUNDERBAR, 


aber man sollte auch zwischendurch 
. Mi 
+ mal ne kleine Pause machen”!!! 


von diesen schwarzen Plastikkäst- 
chen im Computer ist, sind 16 
der 40 Anschlüsse der sogenannte 
Adreßbus. Diese 16 Leitungen 
können wie üblich, Strom/kein 
Strom enthalten, wir können also 
Zahlen von O bis 65535. damit 
darstellen, Und an diese Leitun- 
gen sind die Speicherbausteine 
Ihres Computers angeschlossen. 
Mit diesen 16 Leitungen sagt die 
CPU den Sopeicherbausteinen, 
weiche der 65536 Speicherstellen 
sie ansprechen will. 

Wenn der Strompegel auf den 
Leitungen also so aussieht: 

0000000000000000 
(das ist eine Zahl, was? Sparen Sie 
sich das Nachzählen, es sind 16 
Nullen!}, dann will die CPU die 
Speicherstelle O ansprechen, und 
wenn es so aussieht: 
1113111111717111 
dann fühlt sich die Speicherstelle 
65535 angesprochen. Klar? 

Sie sehen irgendwie noch nicht 
überzeugt aus. Welche Speicher- 
stelle wird denn damit ange- 
sprochen ? 

000000000000001 1 
Das ist einfach! Denken Sie nur 
an das Bild aus Folge 2! 

Und wenn Sie sehen wollen, wie 
in unseren. Computern: diese 
65536 Speicherstellen verwendet 
werden, dann schauen Sie sich 
Bild 1 an! 

HALT! Lesen Sie erst weiter, 
wenn Sie alles verstanden haben! 

Sonst lesen Sie sich den vori- 
gen Abschnitt nochmal durch, 
sooft, bis alles sitzt! 

So, und jetzt was ganz anderes. 
Der Speicher, von dem wir bis 
jetzt soviel geredet haben, sitzt 
ja in den Speicherbausteinen. Ist 
also in der CPU selbst überhaupt 
kein Speicher? Aber doch! Auch 
in der CPU selbst ist Speicher ent- 
halten, allerdings nicht sehr viel. 
Dieses RAM, das fest in der CPU 
eingebaut ist, nennt man die Re- 
gister. Wieviele es sind, und wozu 








sie da sind, daß möchte ich jetzt 
erklären. 

Erstens: Es sind 22! Sie heis- 
sen: A.:F,8,C,D,E,H, LA’, 
FB, CD, E, HL, IV IV, 
SP, PC, I,R. 

Insgesamt sind es 27 Speicher- 
stellen, denn die Register IX, IY, 
SP. und PC bestehen aus jeweils 
2 Speicherstellen. Diese Register 
können daher Zahlen von O bis 
65535 enthalten, die anderen nur 
Zahlen von O bis 2586. 

„Fein”, werden Sie sagen, 
„aber wozu sind diese Dinger 
da?”. 

Über sie läuft der ganze Daten- . 
verkehr ab, und nur mit ihnen 
kann die CPU rechnen. Sie dienen 
ausserdem dazu Ergebnisse von 
Rechnungen und Vergleichen fest- 
zu halten. 

Leider haben wir jedoch nicht 
immer alle Register gleichzeitig 
zur Verfügung, wir müssen näm- 
lich zwischen denen mit, und ohne 
Strich wählen. Das heißt, wir kön- 
nen gleichzeitig nur mit 

A\FBCD.E HL, 
SP, PC, IX, IV, ER, 
oder mit 

AUF ,BE.D,BSH:LE, 

SP, PC, IX, IV, I, R 
arbeiten. 

Um diese Registersätze anzu- 
wählen, gibt es einen bestimmten 
Befehl, den wir später kennen 
lernen werden. 

Das A-Register ist sehr wichtig, 
es ist nämlich das einzige Regi- 
ster, dessen Inhalt man mit an- 
deren Registerinhalten oder Spei- 
cherstelleninhalten (ein Super- 
Wort ...) vergleichen kann. Auch 
funktionieren viele Rechenoperati- 
onen nur mit diesem Register. 

F kommt von Flags. Dieses 
Register gibt zum Beispiel das 
Ergebnis eines Vergleiches an 
(Größer, Kleiner etc.). 

B bis L sind allgemeine Re- 
gister, die für viele Aufgaben be- 
nutzt werden können. Für wel- 
che Aufgaben im Einzelnen, wer- 
den wir sehen, wenn wir anfan- 
gen zu programmieren. Um in die- 
sen Registern auch größere Zahlen 
speichern und verarbeiten zu Kön- 
nen, kann man jeweils zwei von 
Ihnen zusammenfassen (unser 
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Trick von weiter vorn}: 

Es entstehen dann folgende 
16 Bit Register: BC, DE und HL. 

IX und IY sind besondere 
Register, deshalb kann man mit 
Ihnen auch einige besondere Din- 
ge machen, die man mit den an- 
deren Registern nicht machen 
kann (geheimnissvoll, nicht?). Die 
beiden sind 16 Bit Register, be- 
stehen also aus zwei Speicherstel- 
len. Man kann Sie aber im Ge- 
gensatz zu den Registern BC, DE 
und HL, nicht trennen. 

Das SP Register ist ebenfalls 
ein 16 Bit Register. Es gibt die 
Stelle im Speicher an, wo der 
sogenannte Stack steht. Was das 


ist, kommt später. 

Daher auch der Name: Stack 
Pointer. 

Bei dem PC Register kommt der 
Name von Program Counter. Es 
gibt an, an welcher Stelle im Spei- 
cher der Befehl steht, den die CPU 
gerade abarbeitet. Um PC brau- 
chen wir uns normalerweise nicht 
zu kümmern, da die CPU es selbst 
nachstellt. Von den: Ausnahmen, 


die es immer gibt, wollen: wir: 


jetzt noch nicht sprechen: 

Vergessen Sie das! Register, 
Es ist das sogennante Interrupt- 
Register, aber das braucht uns im 
Moment überhaupt nicht zu inte- 
ressieren. 

Das R, beim R Register, kommt 
von Refresh, zu Deutsch Auf- 
frisch Register. Was frischt der 
Computer denn da auf? Sein Ge- 
dächtnis vielleicht? Genau! Eine 
bestimmte Sorte von Speicherbau- 
steinen, wie Sie auch in unseren 
Computern Anwendung findet, 
vergißt nach einigen Sekunden- 
bruchteiten alles, was vorher drin- 
stand. ‚Deshalb muß der Inhalt 
dauernd aufgefrischt werden, und 
dazu braucht die CPU dieses 
Register.: Da sie. das ganz alleine 
macht, ohne das, wir ‚uns darum 
kümmern, könnten wir.es doch ei- 
gentlich vergessen. Aber es gibt 
doch eine ganz interessante An- 
wendung dafür, (das hört sich an 
wie eine Schallplatte mit: Sprung) 
erst später kennen lernen werden, 
Was du heute kannst besorgen, das 
verschiebe am Besten. auf Mor- 
gen ... 













Nohlstr.29 - 


für Typenrad-Schreibmaschinen 


RAM 


EDI 
Bildschirm-orientierter Editor 


TFIX 24 


selbstdefinierte Abkürzungen 
SEDAS32 


REASS-3.2 


MAD'2.3 


TRANSC für Colour Genie 


TRANSV fürGlund ll 


> 

> 

> 

> 

> 
Da 
> 

>» 

> 

> 


So, und nun genug gedacht, 
machen Sie eine Pause. Führen Sie 
Ihren Hund Gassi, oder lassen Sie 
sich vom Fernseher berieseln. 
Hauptsache, Sie vergessen das 
Ganze hier für eine Weile. Das 
heißt natürlich nicht, daß Sie sich 
das Ganze nicht noch einmal 
durchlesen müssten. 

OK, da sind Sie wieder. Jetzt 
dürfen Sie endlich etwas tun, was 
Ihnen Spaß macht. Schalten Sie 
den Computer ein: Legen Sie 
Ihren Editor/Assembler ein. und 


geben Sie das Programm. aus. der. 
Das. Register HL mit der Zahl 


letzten Folge noch mal ein. 

Ich werde nur das Colour Genie 
Programm erklären, da beim zwei- 
ten. Programm ja nur ein paar Zah- 
len verschieden sind. 

Also.';in.. Zeile: 10 steht. ORG 
7FO0OH. ORG: ist wie gesagt nur 
eine: Hilfe: für- den Assembler und 
kein.- Befehl für die CPU. ORG 
7FOOH bedeutet, daß das Pro: 
gramm an Speicherstelle 7FOOH 
anfängt. „/FOOH'? Was soll denn 


ABAKUS 
COMPUTER SHOP 


4200 OBERHAUSEN 1 
CENTRONICS-INTERFACE 


Test-Programm, findet selbst hartnäckigste RAM-Fehler 


Erweiterte Tastatur-Routine incl. ED I, standard- und 
Komfortabler Screen-Editor + Assembler 


Sereen-Editor zur Textverarbeitung 


Reassembler, erzeugt Assembler-Quellfiles für SEDAS 


Komfortabler Monitor mit Line-Assembler, 
Disassembler, Cassetten-Routinen, Trace, etc. 


schreibt und liest Gi, Gli und TRS 80-Cass. 


schreibt Cassetten für Colour Genie 


INTERFACE FÜR GENIE IH zum Laden von 
Cassetten (TRS 80, Genie I u. I}) 


Weitere umfangreiche Softwareliste f.Colour-Genie a.Anfrage 





- Tel.0208/853997 







400, 
{mit Einbau} 


Cass. 59,-- 
Cass. 49 -- 


EPROM 125,- 


Cass./Disk. 115,--/145,-- 


Cass./Disk. 95,--/115,-- 
Cass./Disk. 85 --/105,-- 
Cass./Disk. 139,--/159,-- 


Cass, 39 -- 


Cass. 39 ,-- 


Mn Me Min Mir Min Min Min Min Min Min 


200,- 





das für eine Zahl sein, werden 
Sie jetzt ganz zurecht fragen. 
Nun, das ist Hexadezimal! Ich 
habe momentan selbst wenig Lust, 
Ihnen daß zu erklären, aber be- 
reiten Sie sich schon einmal inner- 
lich darauf vor, daß das in der 
nächsten: Folge kommt. Es sei nur 
soviel gesagt, 7FOOH bedeutet 
32512.:Das Programm startet also 
an Speicherstelle 32512. 

In Zeile 20 steht die Sprung- 
marke: „START”, dann die An- 


"‚weisung LD. LD bedeutet Lade 


mit. Was wird womit geladen? 


4400H. Klaro! 

Die Zeilen 30 und 40 müssten 
Sie sich nun selbst erklären kön- 
nen. Wenn nicht, dann lassen Sie 
sich begraben. Natürlich nur mit 
den GENIE DATA Ausgaben, in 
denen der Assembler-Kurs steht. 
Damit Sie nochmal alles nachle- 
sen können! Aber jetzt! Warum 
stehen in Zeile 50 Klammern um 
HL? Wenn um ein Register Klam- 

























18 GERIEDANN KuRsUS 


mern stehen, dann ist nicht das fehl kann ganze Speicherblöcke, 
Register selbst gemeint, sondern also viele einzelne. Speichersteilen 
die Speicherstelle, auf die das Re- wo anders hin transportieren. Na- 
gister zeigt! türlich nicht die Speicherstellen 
Gesprochen würde Zeile 50 also selbst, sondern nur deren Inhalt. 
lauten: Lade die Speicherzelle, de- Er kopiert alle: Speiche @ 
ren Adresse im HL Register steht, vom Inhalt des Registers 
mit der Zahl 202. Aber welche zu der Speicherstelle;:dere 
Speicherstelle ist das? Es ist die im DE Register steht, Une 
Speicherstelle 4400H = 17408. kopiert er soviele Spe 
Denn diese Zahl haben wir ja in stellen, wiein BC steht. 
Zeile 20 in HL hineingeschrieben. ee 
Nun, erinnern Sie sich, daß ich In unserem Fall kopiert ı 
sagte, wir würden auch Buchsta- 3FFH Speicherstellen von 
ben und Zeichen ganz bestimmte nach 4401H. Pa 
Zahlen zuordnen, damit wir Sie Und jetzt überlegen Sie'mal: 
speichern könnten? A = 65, B= Wenn wir in 4400H eine / 
66 etc. Nun, 202 ist der Code, für schreiben, also diesen: klei 
einen kleinen weißen Block. Und Biock, und dann den Inhalt 
17408 ist „zufällig”‘ der Anfang 4400H nach 4401H kopiere 
des Bildschirmspeichers. Alles, was dann haben wir schon'2:klejine 
wir in 17408 hineinschreiben, Biöckeauf dem Bildschirm. Dann 
erscheint in der oberren, linken wird der Inhalt von "4401H 
Ecke des Bildschirms. Wir zeich- (kleiner Block) 4402H kopie 
nen also einen kleinen weißen und, schwupp, und schon haben 
Block auf den Bildschirm. wir 3 kleine Blöckchen auf: de 
Preisfrage: Wie bekommen wir Schirm. Das geht dann so weite 
den ganzen Bildschirm voll dieser bis 3FFH Blöckchen auf: dem 
Blöcke? Schirm stehen, dann ist. alles 
weiß. Raffiniert nicht! \ 
Das macht der Befehl in Zeile Was passiert, wenn wir: in 
60. Dieser Befehl ist ein Block- Zeile 20 anstelle von 4400H 
Move-Befehl. Das heißt, dieser Be- einfach O einsetzen? 













































Na? Der ganze Bildschirm ist 
Woll:von merkwürdigem Unsinn, 
aber. man kann auch sinnvolles 
erkennen, wie zum Beispiel 
„MEM'SIZE”. Wir haben jetzt 
die ersten 3FFH Speicherstellen 
von Adresse O von Adresse O in 
den Bildschirmspeicher geschrie- 
ven. Ab Adresse O steht aber das 
asic. Das heißt, wir können jetzt 
hen..wie das Basic aussieht! 

So,: Schluß für heute! Hier 
noch die Testfragen, bis zum 
ächsten Mal! 

Wozu ist das R Register da? 

in. welcher Speicherstelle 

ängt unser Programmbeispiel 


_ Können wir gleichzeitig mit 
dem A.und A’ Register arbei- 
en? 

as ist die größte und die klein- 
* Zahl, die wir mit 16 Bit 
arstellen können? 

nnen wir das C Register mit 
er Zahl 300 füllen? 

‚wie: ist es mit dem BC 
ter? 

jelche Zahl muß man im Pro- 
mbeispiel ändern, damit 
10 :Blöckchen auf dem 
itm:erscheinen ? 
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Zeilen Schieber 


Das vorliegende Programm ermög- 
licht das Verlegen einer Basiczei- 
ie mit einem einfachen Befehl, 
z. B. NAME 55,10, daß heißt, 
die Zeile 55 wird aus.'dem Text 
entfernt, und ihr Inhalt erscheint 
als Zeile 10. Die alte Zeile wird 
dabei gelöscht. Diese Arbeitsweise 
bewährt sich besonders bei sehr 
langen Programmzeilen und er- 
leichtert ein „Verschönern’ fer- 
tiger Programme. 

Ein Nachteil soll nicht ver- 
schwiegen werden, Sprünge auf 
die alte Zeile werden nicht umge- 
rechnet. 

Im folgenden eine Übersicht 
über die Arbeitsweise: 

Die Zeilen 10 und 20 verur- 
sachen in bekannter Weise einen 
Autostart nach dem Laden des 
Systembandes. Entfällt diese Op- 
tion, können (müssen aber nicht) 


die Zeilen 60 und..70 entfernt 


werden.im Initialisierungsteil wird. 
ein im Basic nicht verwendeter 


Befehl mit der Startadresse dieses 
Programmes versehen, in unserem 
Beispiel der Befehl NAME, es ist 
auch jeder andere freie Befehl 
möglich, z B. LINE. Darauf folgt 
das Kurzschließen des für den Au- 
tostart verwendeten CALL’s der 
Bandleseroutine, und der Sprung 
in die Warmstartroutine. 

Nachdem der Befehl NAME 
vom Interpreter erkannt worden 
ist, wird in Zeile 90 zunächst über- 
prüft, ob überhaupt eine Zeilen- 
nummer folgt; das gesetzte CY 
Flag signalisiert eine Ziffer. An- 
dernfalls führt ein Sprung direkt 
in die "SN-ERROR-Routine’', 

In Zeile 110 bis 120 wird die- 
se Zahl ausgewertet, in das Regi- 
sterpaar DE gebracht und geret- 
tet. Sodann wird auf ein Komma 
geachtet (RST @8H ist eine Rou- 
tine des Interpreters, die zwei 
Zeichen auf Gleichheit testet 
und ggf. die SN-ERROR-Routine 
aufruft, dabei folgt der Vergleichs- 


code direkt hinter RST @®8H.), 
mit CALL 1EBAH wird die zwei- 
te Zeilennummer ermittelt und 
nach DE gebracht (150). Enthält 
DE den Wert ®®, war keine wei- 
tere Zahl eingegeben worden, also 
SN-ERROR. 

“In 190 bis 210 werden die er- 
mittelten Zeilennummern zwi- 
schen DE, HL und (SP) derart 
getauscht, daß das Registerpaar 
HL die alte Zeilennummer erhält, 
weil damit (220) die Zeile im 
Basic-Text gesucht wird. Sollte 
sie nicht existieren, wird nachfol- 
gend UL-ERROR aufgerufen. 

Andernfalls ist in Registerpaar 
BC die Anfangsadresse dieser Zeile 
und in HL die Adresse der darauf- 
folgenden Zeile hinterlegt. In 
240 bis 310 werden diese Werte 
gerettet, getauscht und nach Über- 


springen .der: Zeilenpointer und 
der Zeilennummer. im. UP.CALL- 
2B7EH.:(320): benötigt, um den 


Inhalt.der:Zeile:in einen Zwischen- 
buffer..{/O:.Buffer): zu laden. Da- 
bei werden. die Basic-Token in les- 
baren Text übersetzt. 

Um diese Zeile nun zu löschen, 
wird einfach der darauffolgende 
Basic-Text durch Aufrücken darü- 
ber geschrieben (350 bis 410). 

Das neue Ende des Programms 
wird in 40F9H wieder abgelegt. 

Weil durch diese Operation die 
Zeilenpointer, also die Zeilenan- 
fangsadressen, nicht mehr stim- 
men, müssen sie durch CALL 
1AF8H erneuert werden. 

Anschliessend wird der Text 
„READY" ausgegeben (460 bis 
470). Erst jetzt wird die neue 
Zeilennummer vom Stack geholt. 
das Registerpaar HL wird mit dem 
Anfangswert des I/O Buffers be- 
legt und das Carry-Flag gesetzt. 

Mit JP 1A18H wird mitten in 
die Haupteingabeschieife gesprun- 
gen, in.der der I/O Bufferinhalt 


mit der neuen Zeilennummer 
fin DE) so abgespeichert wird, 
als ob er gerade über die Tasta- 
tur eingegeben worden wäre. Das 
gesetzte Cy-Flag verhindert dabei 
eine direkte Ausführung der Einga- 
bezeile. 

Abschließend ein paar kleine 
Hinweise für „Bastler”. 

Mit der angegebenen ORG-An- 
weisung wird das Programm in den 
für DOS reservierten Bereich gela- 
den, was den Vorteil bringt, 
keinen Anwenderspeicher zu ko- 
sten. Man kann es natürlich auch 
an das Ende des freien RAM's 
laden, muß aber dann MEM SIZE 
entsprechend setzen oder (evtl.. 
in der Initialisierung) 40B1H und 
40B2H entsprechend laden. Im 
letzteren Fall muß dann ein 
CLEAR nnnn folgen, damit der 
Interpreter über die Änderung in- 
formiert wird, 

Wer sich einige nette Abende 
und Nächte machen will, kann 
auch versuchen, das Programm da- 
hin zu ändern, daß mit NAME 
55=10 die Zeile 55 als Zeile 10 
kopiert wird, ohne Zeile 55 zu 
löschen. Dazu könnte man sich 
eine Speicherzelle als Flag ein- 
richten, und in Abhängigkeit von 
Ihrem Inhalt die Zeilenlöschrou- 
tine (350 bis 450) überspringen. 

Allerdings muß dann der Test 
auf das Komma so erweiter wer- 
den, das auch ein "=" akzeptiert 
wird und abhängig davon das vor- 
genannte Flag beeinflußt wird. 
Wer sich noch vornimmt, den 
eingangs genannten Nachteil be- 
züglich der GOTO’s und GOSUB’s 
zu beheben, sollte noch einige 
Nächte dazu rechnen und über 
ein ROM-Listing verfügen. Und 
jede Erweiterung passt nicht mehr 
in das freie DOS-RAM! 

Ausserdem könnte man ganze 
Programmblöcke verschieben ... 
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10 
20 


So 


30 INIT 


So 
80 
70 
30 


70 START 


100 
110 
120 
120 
140 
145 
150 
150 
170 
180 
165 
170 
200 
210 
215 
220 
ZEO 
240 
250 
2&0 
270 
280 
2I0 
O0 
>10 
ZERO 
A350 
340 
E56 
235 
360 
370 
380 
370 
+00 
A410 

zO 
420 
440 
445 
450 
455 
460 
A7O 
473 
480 
490 
soo 
510 
320 
a0 


” 
” 


a. 


LDOF 


a 


DRG ALIEZH 
Jr INIT 
ORG ASAUH 
LD HL» START 


LD (A18FH) HL 3 


LD A»:OCYH 
LD (41E2HI «A 
JF 66H 

JF NG» 1997H 


CALL IEAFH 
FUSH DE 
RST 08H 
DEFE ZCH 


CALL 1ESAH 
LD A:D 

OR E 

JF 2:1997H 


EX DE>HL 
FOF DE 
FUSH HL 


CALL 1BZCH 
JF NE» 1ED9H 
FUSH BC 

FUSH HL 

LD HB 

ED LsE 

INC HL 

INC HL 

INC HL 

INC HL | 
CALL: ZEZEH 
FOF DE 

FOF BC 

LD HL» (A0F9H) 


LD A: \DE) 

LD (BO)>A 

ING BC 

INC DE 

RST 18H 

JR NZ.»LOOF 
LD H=EB 

LD L.C 

LD (40F9H) HL 


DALL IAFEH 


LD HL» 19729H 
EALL 28A7H 


FOF DE 

LD HL» (40A7H) 
SCF 

FUSH AF 

Jr 1A9YSH 

END INIT 
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Tausche TRS-80/V.G. Pro- Suche Tauschpartner für 
gramme Manfred Blaschek, VG-.Prog. {64K, Cassette, 
A-1100 Wien Inzersdorfer- Disk). G. Dreyer, Am Spei- 
str. 111/8/9 .ergarten 8, 6200 Wiesbaden 


Achtung! Einsteiger! Verk. 
Colour Genie 32K mit Rec. 
{1 Jahr alt) 400,-- DM und 
meine gesamte Programm- 
bibliothek, Anschlußanlei- 
tungen f. Atari Joyst. Aus- 
senlautsprecher u. vieles 
mehr, Preis VB. H.-.J. Win- 
terscheid, Bennauerstr, 1, 
5300 Bonn 1, 0228/224353 


CG-User sucht Tauschpart- 
ner. A. Becker, Zur Stein- 
beck 34, 5620 Velbert 1 


Verkaufe Genie I, Level IV, 
64K RAM mit Drucker- 
Interface, Software und Li- 
teratur, Preis 800,-, Tel. 
0241/173394 


Colour-Genie-Kontakte 

TAUSCHPARTNER GE- W. Schwab, Heckenweg 19, 
SUCHT GENIE I, 64K / 5205 St. Augustin, 02241/ 
DISK KURT WAGNER, 25986 
VIEHTRIFFTSTR. 77 
6725 HEILIGENSTEIN C.G. Programmtausch über 
100 Prog. Liste an H. Lin- 
denberg, Heerstraße 48, 
4018 Langenfeld 


Colour Genie + Software 
günstig zu verkaufen (1 Jahr 
alt) 09431/61916 
Mathematikprogramme für 
CG: ab 5,- DM netto von 
S.' Vinzent, Pfr-Theis-Str. 1, 
6605 Friedrichsthal 


Suche COLOUR GENIE 
Software, Dittrich, Schnee- 2 
bergstr. 6, 8660 Münchberg T: 


Genie I 16K.+ div. Pro |. 
gramme (Sargon}: VB: 700,-:;. 
Tel. 02461/3693 


:-TRS-80 Pgm.-Tauschliste an 
::W. Nimzik Himmelgeister 19 
:.4047 Dormagen 5 


COLOURGENIEII 
PROGRAMMTAUSCH, 
UDO LEMBKE 2210 ITZE- 
HOE 2. HEIDEWEG 6 


COLOUR-GENIE: Spitzen- 
Softw,, Full-Screen-Editor 
{wie CBM}), Panzerkampf, 
EACA-komp. Joys, FX-702 
P: Schach, Tuningkit, Son- 
C.:"G:: Usersucht Erfah- derzeichen; Liste 50 Pf. bei 
rungsaustausch W. Pilger H. Czech, Kölner-6, 509 
6200 Wiesbaden, Weissen- Lev.-3 

burgstr. 12, Tel.: 06121/ 


403468 Weitere Kleinanzeigen Seite 28 







TRS-80 / Genie / Colour-Genie 


SEDIT DM 39.— | COPBIT DM 39.— 


komfortabler Bildschirmeditor, volla,Cursor- | Kopierprogramm. Kopiert praktisch alle Co- 
steuerung + Bildschirmkontrolfe einfaches | tour-Genie-Kassetten, Auch geschützte For- 
Einfügen + Löschen v. Zeichen mate, z. B.: Preloader/Baudrateumsch. 

























COLBAS DM 59,- 
Umfangreiche Basicerweiterung, MERGE, 
Disk-Basic-Funktionen, RESTOHE N, Varia- 
btensuche, Listingformatierer, Packer usw. 
auch kombiniert mit SEDIT für nur DM 89.-1 


SBUG / CBUG 


Monitor, Disassembler und Trace. Komforta- 
bier Monitor mit Disassembler und progr. 
Trace mit Single Step durch RAM, ROM und 
DOS. SBUG für TRS-80/Genis DM 139.- / 
CBUG für Colour DM 89,-. CBUG tiest auch 
TRS-80- und Genie-Kassetten! 











Ähnlich für TRS-80/Genis mit Renumber! 


Alte Programme mit ausführlicher, deutscher Anleitung, Preise inkl 14% MwSt. SBUG/SEDIT 
auf Disk + 10,-, Fordem Sie Info und Hardwarepreisliste an! Händleranfragen erwünscht! 


Luidger Röckrath noppiusstr. 19, 5100 Aachen, Telefon: (02 41) 349 62 
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SYNTHESIZER 


Als Colour Genie Anwender wis- 
sen Sie natürlich, daß im Colour 
Genie ein PSG (Programmierbarer 
Sound Generator) sitzt, mit dessen 
Hilfe Sie komplexe Töne und Ge- 
räusche erzeugen können. 

Wir haben mit Hilfe des PSG ein 
Synthesizer-Programm entwickelt, 
mit dem man ganz brauchbare 
Dinge tun kann. Um den Nach- 
teil des Musizierens auf der Com- 
putertastatur auszuschalten, wur- 
de gleichzeitig ein Keyboard ent- 
wickelt, auf der sich vernünftig 
spielen lässt. Deshalb gliedert sich 
dieser Artikel auch in zwei Teile. 
Der Erste beschreibt den Anschluß 
der Tastatur, der Zweite das ei- 
gentliche Synthesizer-Programm. 

Anschluß der Tastatur 
Mit dem PSG kann: man ja nicht 
nur tönen, sondern. auch steuern, 
und zwar den Paraleliport. Und 
genau an diesen haben: wir: die Ta- 
statur auch angeschlossen.:Wir ha- 
ben uns dabei mit acht:Tasten.be- 
gnügt, was natürlich den: Nach- 


teil hat, daß man nur in: C-Dur. 


spielen kann, und das keine Halb- 
töne (z. B. Fis usw.) spielbar sind: 
Man kann dem aber Abhelfen, 
wenn man seine Tastatur nicht 
nur über einen Port, sondern 
über zwei laufen läßt. Man kann 
dann acht verschiedene Zustände 
über Port A abfragen, diese mit 
einem Zustand von Port B ver- 
knüpfen, und hat auf diese Weise 
die Möglichkeit, schon 256 ver- 
schiedene Tasten abzufragen. Wem 
das immer noch nicht langt, der 
kann ja die Zustände von Port 
A und Port B als 16 stellige Du- 
alzahl ansehen, woraufhin er dann 
65536 verschiedene Tasten abfra- 
gen kann. Das sollte an und für 
sich genügen. 

Ich möchte in diesem Zusam- 
menhang auch gleich erwähnen, 
daß dieser Artikel nicht für An- 
fänger gedacht ist! 

Ein Anfänger sollte sich höch- 
stens darauf beschränken, das 
Programm abzutippen, und die 
Tastatur wie beschrieben anzu- 


schliessen, aber keine Änderungen 
vornehmen. Denn gerade bei Port- 
steuerungen mit dem PSG passiert 
es schonmal, daß derselbe dabei 
„stirbt‘’, weil er etwas falsch ange- 
schlossen wurde. 

Also wir sind folgendermaßen 

vorgegangen: 
Wir haben uns acht Digitaster ge- 
nommen, von denen jeder eine 
Leitung des Port B gegen Ground 
schaltet, wenn er gedrückt wird. 
Wenn man die Taster so wie in 
Bild 1 anschließt, kann nichts 
passieren, die einzige Gefahren- 
quelle ist, daß man aus Verse- 
hen, anstelle von Ground (Pin 20) 
+ 12 V (Pin 19) erwischen könnte. 
Davor sollte man sich hüten! 
Auch sollte man nicht anstelle 
von B6, +5 V nehmen! 

Der mechanische Aufbau gestal- 
tet sich wie folgt. Entweder man 
nimmt eine richtige Orgeltastatur 
(dann sollte man aber alle Tasten 
abfragen!) oder man nimmt, wie 
wir, Digitaster. Diese lassen sich 
bequem auf eine Lochrästerpiatine 


‘töten. Die Verbindungen kann 
‚man leicht fädeln (Wire Wrap 


nennt das wohl der Fachmann). 
Wenn::man:. 20 Lötnägel schön in 
einer: Reihe auflötet, hat man so- 
gar..einen ‚Stecker, den man per 
Flachbandkabel. mit dem Port ver- 
binden.Kann.:. Wer dieses Kabel 
dann: nätürlich: beim "aufstecken 
verdreht,;:ist:es:selber schuld: : .. 
Das: Programm 
Zum Programm:ist.eigentlich nicht 
soviel zu: sagen; nur. das: vorlie- 


gende Programm:ist zwar: in :Ba- 


sic geschrieben; aber es wurde'zum 
compilieren gemacht! Die. Basic 
Version ist einfach‘ zu‘ langsam, 
um ein Lied zu spielen. 

Wenn Sie keinen Compiler ha- 
ben, oder Ihnen das Tippen zu- 
viel Arbeit ist, können Sie die 
compilierte Version beim Verlag 
bestellen, DM 49,-- auf Cassette, 
DM 59,-- auf Diskette. 

Jetzt aber zur Bedienung des 
Synthesizers! Zuerst einmal eine 
Zahl. Sie haben mit diesem Pro- 


gramm rund 845.000.000.000 ver- 
schiedene Klangvariationen! 
Das sind in Worten 845 Milli- 
arden verschiedene Klänge. Und 
wie Sie die in den Griff bekom- 
men, verrate ich Ihnen jetzt: 

Nach dem Laden und Starten 
des Programmes, bekommen Sie 
eine Übersicht, welche Funktio- 
nen zur Zeit gerade aktiv sind. 
Diese Funktionen können Sie nun 
alie verändern, und daraus resul- 
tiert die fantastische Klangvielfalt. 
In der ersten Zeile steht Tonaus- 
gabe auf Kanal A. Sie haben ins- 
gesamt drei Kanäle zur Verfü- 
gung, nämlich A, B und C. Diese 
Kanäle können Sie mit den Ta- 
sten 1 bis 7 aktivieren, damit 
soliten Sie mal etwas rumprobie- 
ren, um herauszufinden, mit wel- 
cher Zahl die verschiedenen Kanä- 
le aktiv werden. Mit der Taste 8 
schalten Sie alle Kanäle aus. 

in der nächsten Zeile steht 
Rauschen auf Kanal. Hier kön- 
nen Sie auf jedem der drei Kanä- 
le ein Rauschen einschalten, be- 
nutzen Sie dazu die Ziffern 3 bis 
9, wobei Sie gleichzeitig Shift 
gedrückt halten. Mit dem Doppel- 
punkt schalten Sie das Rauschen 
auf allen Kanälen aus. 

Danach (die nächsten drei Zei- 
len) wird Ihnen die Oktave ange- 
zeigt, mit der der jeweilige Kanal 
bespielt wird. Das können Sie für 
jeden Kanal getrennt einstellen, 
wobei die Oktaven von 1 bis 6 
reichen. Benutzen Sie folgende Ta- 
sten: 

A= Kanal A plus eine Oktave 

a= Kanal A minus eine Oktave 

B = Kanal B plus eine Oktave 

b = Kanal B minus eine Oktave 

C = Kanal C plus eine Oktave 

c = Kanal C minus eine Oktave 
Töne kommen aber auf dem je- 
weiligen Kanal nur, wenn er mit 
einer der Tasten 1 bis 7 akti- 
viert wurde! 

In der nächsten Zeile wird 
Ihnen die momentane Rausch- 
frequenz angezeigt. Diese ändern 
Sie mit der Taste R. Und zwar 
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bedeutet R plus 1 undrr minus 1. 

Danch sehen Sie die momentan 
eingestellt Hülikurve. Diese schal- 
ten Sie mit der Taste O. Hier ha- 
ben Sie acht verschiedene Hüll- 
kurven, die endlos fortgeschaltet 
werden, d. h., wenn Sie nach der 
Achten mit OÖ weiterschalten, 
kommt wieder die Erste. 

In der folgenden Zeile sehen 
Sie die Geschwindigkeit, mit der 
die Hüllkurve erzeugt wird. Diese 
steuern Sie mit der Hochpfeil- 
taste und der Tiefpfeiltaste. Pfeil 
nach oben bedeutet langsamer, 
Pfeil nach unten bedeutet schnel- 
ler. Diese Tasten haben eine Wie- 
derholfunktion, so daß sie solange 
wirksam sind, wie sie gedrückt 
werden. Diese Veränderung der 
Geschwindigkeit wird aber aus 
Tempogründen nicht ständig ange- 
zeigt, sondern man sieht sie erst 
nach Druck auf irgendeine andere 
Taste, 

In der nächsten Zeile steht 
HOLD = AUS. Hold aus bedeu- 


IC 
DT Eier) 


PRINT" 5 


FRINTE@I2O, " 


Z=1 
A=1:;E= 
Q FLAYL 


:D 
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tet, daß ein Ton nur solange zu 
hören ist, solange Sie die ent- 
sprechende Taste gedrückt hal- 
ten. Hold an bedeutet, daß Sie 
die Taste nur kurz antippen, und 
der Ton solange gehalten wird, 
bis Sie irgendeine andere Taste 
drücken. Sie schalten die Hold- 
Funktion mit H ein und mit h 
aus. 
Die letzten drei Zeilen schließ- 
lich zeigen Ihnen die Lautstärke 
der drei Kanäle A, B und C an. 
Das können Zahlen von 1 bis 16 
sein. 1 ist leise und wird bis 15 
immer lauter, 16 bedeutet, daß 
der entsprechende Kanal über die 
gewählte Hüllkurve geleitet wird. 
Sie können die Werte mit folgen- 
den Tasten beeinflussen: 
O = Kanal A lauter 
a = Kanal A leiser 
W = Kanal B lauter 
w = Kanal B leiser 
E = Kanal C lauter 
e= Kanal C leiser 

So, das waren die Funktionen 


B 
6 


So 
om 
20 


ß 
1 


no 


B 
v 


@ 8 


E FR" 


Taste tippen" 


AS=INKEY$: IFA$=""THEN? 


FLAY(2.D.C.15 


(EC) bv GENIE DATA. 


des Synthesizers. Übrigens: Klein- 
buchstaben bekommt man beim 
Colour Genie dadurch, daß man 
Shift und den Großbuchstaben ge- 
meinsam verwendet. 

Jetzt: noch ein paar ' interes- 
sante:Klänge,: die Sie einmal ein- 
stellen: sollten. 

HESEEES Klang 1 
Tonausgabe: Kanal A, Bund C 
Rauschen auf Kanal B 
Hold einschalten 
Volume: B=16 

BEE Klang 2 
Tonausgabe: Kanal A, Bund C 
Hüllkürve.Geschw. ca 1000 
Volume: A:16 
Voliume.B:16 
Volume C:12: 

Klang 3 
Tonausgabe: Kanal A und B 
Rauschen auf Kanal.C 
Rauschwert 1... 
Hüllkurve Geschw. ca. 780 - 
Volume A: 16... 
Volume B: 15; 
Volume C: 16 


Paralellport 





FRITNTOORROORORORORDORSODRDDODORROORDDDDRIORIODERIGOKK" S FRINT 
YMTHESTIZ 
FRINTSFRINT:FRINT" OO ORDIORDORODRDRDODDRIORDRORIOROEKE NK" 
FRINT:PRINT:PRINT" 


1984" 
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Kreative Freizeit — problemloser Selbstbau 
BE ,_ | — faszinierende Möglichkeiten 


Durch die Kombination von Computer 
und Musikinstrument — wie nur Wersi 
als "Made in Germany” bietet — er- 
öffnen sich dem Computer-Anwender 
bislang ungeahnte, faszinierende Soft- 
ware-Bereiche. Der Musikfreund gewinnt 
neue Dimensionen in Gestaltungsviel- 
falt, Klangschöpfung, Komposition und 
Interpretation. 


Das Wersi-DMS-System ""macht’s mög- 
lich”. Durch Volldigital-Technik wird 
die Verbindung mit dem Computer 
möglich. Start frei für die Anwendungen 
der Zukunft. 





Das WERSI-KEYBOARD 
— der Schlüssel zu Ihrem Computer 


Sie besitzen einen Homecomputer oder ein anderes Kiein- 
Rechnersystem ? Und schon lange. haben Sie sich. damit 
beschäftigt, nunmehr auch Musik mit Ihrem Computer zu 
machen ? Bislang stand Ihnen aber nur die normale Tastatur 
des Rechners zur Verfügung ? Dann haben wir jetzt die 
richtige Idee für Sie: Mit dem’ Wersi-Keyboard,. damit das 
Musizieren auch so richtig Spaß macht ! 

Wir als Orgelhersteller wurden schon oft nach einer ent- 
sprechenden Tastatur befragt. Mit dem Wersi-Computer- 





Wers-KEYBOARD ass 150816 


Keyboard bieten wir Ihnen nun in einem soliden, form- Ergänzung fr joden Klaunoomputer 
schön gestalteten Gehäuse ein 5-Oktaven-Manual mit 61 en PER 
- . . cm >4 
Tasten — von C bis C — mit &omputergerechter 8 x 8 Brone 22cm - Programm zur Tonerzeugung Keyboard 
& Höhe ITsem = Programm zur Taststurablrago incl. Anschlußkabel 
Matrixabfrage an. Umfang $,Gnaven © bsC» olon einsarzberen) 
on 





Die ALPHA DX 300 — das Superding "a DM 295, 
— das Orchester, das sich per Computer steuern läßt 


Mit der ALPHA DX 300 verfügen Sie über eines der außergewöhnlichsten Orchester für zuhause oder das Studio, ein Keyboard 

oder Synthesizer für die Bühne und vieles andere mehr. Die Zukunft ist Wirklichkeit. e 

Die ALPHA DX 300 ist ”lernfähig“, d. h. sie kann neue Programme, Klangfarben etc. jederzeit ändern, löschen oder auf- 
nehmen. Diese Dimension ist neu und vorteilhaft, wenn die ursprünglich 
einprogrammierten Instrumente vielleicht doch einmal in. Vergessenheit 
geraten sollten. r 
Die ALPHA DX 300 verfügt über die internationale Standard-Schnitt- + 
stelle RS 232; hieran läßt sich ein Apple”, ein "Commodore”;- "Sirius" L 
oder andere Home-Computer anschließen. Die Software für: Ihren Com- 7 
puter schreiben Sie. entweder selbst oder beziehen unsere Software-Paketg,” 
für Ihren Rechner. 
Der Anschluß des Home-Computers eröffnet Ihnen das breite Spek- ‚7 & 
trum der Variationsmöglichkeiten, Ihrer ALPHA DX 300 Sg 
neue Sounds, neue Presets usw. beizubringen”. Umge- 
kehrt läßt sich auf dem Home-Computer (falls dieser Ss F E Si 
dafür technisch ausgelegt ist) tabellarisch er 

© A g o 

oder grafisch der "Inhalt” Ihrer Orgel 
abbilden z. B. die gespielten Noten 

“ oder Registrierinhalte. 





Wersi Orgel- und Piano-Bausätze 
Bestellcoupon bitte einsenden an: Industriestraße 540] Halsenbach 
Telefon (06747) 713} 
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2 FRINT"Rauschen auf Kanal: ": 


FORI=1T0500:NEXTI 
E=B+1: IFB=BTHENB=1:A=A+1: IFA=SATHENGOTDIS : 
E=C+1: IFC=SBTHENOC=1:D=-D-1 

G0T010 

Z=Z+1: IFZ{STHENGOTOF 
FLAY(1.1,0,15):FLAY(2,1.0,15) 

ELS ee 
0=3:F=4:0=5: R=1:5=0: U=8: V=100: W=15:A=0:C0=1S5:D=1S:E=15 
GDSURZ& E 
Y1=Y:605UB75: IFY1=YTHENGOTO27 

IFY=BTHENPLAY (1.0+1,.1,15) 
IFY=8THENFLAY(7,.F+1,1,15) 
IFY=BTHENFLAY (5. 0+1.1.15) 
IFY<>BTHENFLAY(1.0,Y,15) 

IFYX>8THENFLAY (2,P,Y,15) 

IFY< YBTHENFLAY (3,0,Y,15) 

G0OSUB174 

A$=INKEY$ 

IFA$="/"THENEND 

IFAS< >" " THENGOSURBS 

A$S=INKEY$ 

IFFEEK (16444) =BTHENV=V+1: IFV=2SSTHENV=0: WeW+1 
IFFEEK (16444) =1A THENV=V-1: IFV= ITHENV=255: W=W-1 
SOUND11.V:SOUNDI1?,W 
GOTO?O 

ELS 

FRINT" SYNTHESIZE " 

PRINT EKREREORORKERKOK KOKKOK KR RTKKT KREIEREN" 
FRINT" Tonausgabe auf Kanal: "s; 

IFR=OTHENFRINT 

Ol=R: GOSUBA6 


Q1=-5: GDSUR&A& 

FRINT:FRINT"Oktave 1, Kanal A =":0 
FRINT"Oktave 2. Kanal BE ="; F 
FRINT"Oktave ZT, Kanal C =":Q 





FRINT:PRINT"Rauschwert =":T 
FRINT | 
FRINT"Huellkurve :": 


LFU=SOTHENPRINT" N" 


IFUS4THENFRINT"A___" 
IFU=BTHENFRINT"ANN N" 
IFU=S10OTHENFRINT"N.AUN 
IFU=S11THENFRINT"A I" 
IFU=12THENPRINT"A AA A" 
IFU=1STHENPRINT "ZN 
IFU=14THENFRINT"ANAN! 
FRINT"Huellkurve Geschw. "ı256KWHV 
FRINT 

IFA=1THENPRINT"HOLD = AN" 
IFA=OTHENPRINT"HOLD = AUS" 
FRINT:PRINT"Volume A =":C 





FRINT"Volume BR =":D 
FRINT"Volume C =":E 
RETURN 


IFOL=OTHENFRINT 
IFO1=1THENPRINT"A” 
IFO1=2THENFRINT"B" 
IFQI=3THENFRINT"A B" 





7o 
7i 
7a 
73 
74 
75 
78 
Tr? 
78 
77 
so 
31 
32 
3: 
34 
85 
35 
37 
sa 
397 
70 
71 
72 
95 
?4 
I5 
25 
77 
78 
92 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
iii 
112 
112 
114 
115 
ı1& 
117 
118 
119 
120 
IE 


122 


124 


[4 
125 


126 
127 
128 
127 





IFQO1=4THENFRINT"C" 
IFRBL=STHENFRINT"A 0% 2. 
IFQLSSTHENFRINT"E EM 
IFQ1=7THENPRINT"A R en 


"RETURN 


DUT248.15 
X1=INP (249) 
Xi=X1-255: X1=X18-1: 
IFX1=1THENY=1 
IFX1=2THENY=? 
IFX1=4THENY=3 
IFX1=8THENY=4 023 
IFX1=168THENY=S.N 0 
IFX1=32THENY=4- 
IFX1=44THENY=7 
IFX1=12BTHENY=8 
IFA=OTHENIFX1= OTHENY=O 
RETURN 

IFA$="H"THENA=1 
IFA$="h"THENA=O 





IFA$="A"THENIFOX ESTHEND=0+1 


IFA$="a"THENIFO>1THEND=0-1 
1FAS="B" THENIFF<STHENF=P+1 
IFA$="b"THENIFF>1 THENF=P- 
IFA$="C"THENIFO<STHEND=Q 
IFA$="c"THENIFO>1 THENO= 
IFA$="L"THENR=1 
IFAg=" 2 THENR FU DO2——— 
IFAS=S"ZNTHENR SE DO—o 
IFA$="4"THENR=4 
IFAS="S"THENR=S. 
IFA$="&"THENR= a. 
IFAS="T"THENR=S TU Oö5öÄ2— 
IFAS="#H"THENS=SI., 0 
IFAs="$"THENS=?. 
IFAS="%"THENS=S 











IFAS="%"THENS=4 
IFA$="""THENS=SI 
IFA$=" ("THENS=& 
IFAS=") "THENS=7 


IFA$&="B"THENR=O 
IFA$=": "THENS=O 


IFAS="R"THENIFT<SOTHENTST+1 


IFA$="r "THENIFT>LTHENT=T-1 


IFAS="QO"THENIFCZ 165 THENCSC+H1: IFC=16&THENSOUND11.V: SOUND12.W: SOUND1Z.U 


IFA$S="a" THENIFCHITHENC=C-I 


HARDWARE 





IFA$="W"THENIFD<{ 18 THEND=D+15 IFD=16&8 THENSOUND11,.V: SOUND12.W: SOUNDI1S,.U 


IFAS="w" THENIFD>1THEND=D-1 


IFA$="E"THENIFE<16THENE=E+1: IFE=16&THENSOUND11.V: SDUNDLZ.W: SOUND13,U 
IFA$="e"THENIFE>ZTHENESE-1 


IFS>ZTHENV1=V1-18:5=5-2 
IFS>1THENV1=V1-8:5=5-1 
S=01:SDUND7.Vi 

SOUND&A„T 

RETURN 


IFA$="D"THENREADU: IFU=99THENRESTORE : READU: SOUND13. U: ELSESOUND13, U 
BOSUR3S 

AS=" n 

RETURN 

IFY< >OTHENSDUNDB,, CELSESOUNDE,. 0 130 

IFY«< >OTHENSDUND9, DELSESDUNDF,.O 1531 

IFY< »OTHENSOUND 10. EELSESOUND10,0 152 

Vvi1=8I-R 135 

Ci=5 134 

IFS>4THENV1=V1-32:5=5-4 135 


DATAO,.4,8,10,11,12,13,14,.99 
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VORTEX ein SUPER-ACTION-SPIEL vergleichbar mit Astray und Helikopter 

Saturnring * Blaue Ufos * Bomben, Flattermänner, V-Jäger, Bordwaffen, Spinnenschiff 


USW. 
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Dieser PACBOY macht dem "Alten" in allen Beziehungen was vor. Es ist eben 

wie der Name schon sagt ein PacBOY. Er ist schnell und fix auf den Beinen. Zum 
Schluß mit unsichtbarem Labyrinth. Ein echtes SUPER-SPIEL. 

PREIS_NUR DM 49,— 

PREIS FÜR SPIEL AUF DISKEITE NUR DM 56,— 
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STEIGEN SIE IN IHREN HELIKOPTER! Lassen Sie sich von dem faszinierenden Geräusch des. Motors !hrer Ma- 
schine begeistern! Es geht durch die Lüfte über Landschaften die flach sind, über rauhes Gelände und Berge. Ausge- 
rüstet ist Ihr Helikopter mit den besten Waffen (Sie werden sehr überrascht sein!). Wenn Sie'Ihre Kanonen und Bom- 
ben treffsicher einsetzen, dann haben Sie die Möglichkeit unterwegs zu tanken. Sie können: waagerecht, senkrecht 
und auch schräg fliegen. Es ist einfach nervenzerfetzend! Dann geht der Fiug weiter durch eine lange Felsengrotte 
und Berglandschaften zu einer Stadt. Unterwegs können Sie die in Not geratenen Menschen retten, bei guten fliege- 
rischem Können. Die Menschen winken Ihnen zu. Vorsicht vor den Feinden, die auch nicht schlecht schießen, die 
Grafik und die abwechseinde Farbenpracht wird Sie begeistern. Dann kommt nach längerem Flug und weiteren inte- 
ressanten Landschaften ein künstlicher Tunnel. Bis Sie dann nach acht Spielstufen den weißen Elefanten der Maha- 
rani sichten, den Sie ganz niedrig überfliegen müssen. Sollten Sie dieses Ziel erreichen, dann erhalten Sie einen Son- 
derbonus von 10.000 Punkten. Das Spiel ist eine einzige Nervenanspannung und großes Können muß bewiesen wer- 
den denn sonst sehen Sie den weißen Elefanten nie! Dieses Spiel ist echt seine Dollars wert und bestimmt noch etwas 
mehr. 
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COLOUR GENIE »»- 


ı0 versch. Spiel-Szenen, ganz tolle Grafik, Top Sound! 
GORILLA: In Multi-Colour und HUBI-Vision 
GORILLA: Er sollte auf Ihrem Bildschirm sein! 
Ein Superspiel, was Ihnen immer wieder große 
Die brandheiße Freude bereitet und fasziniert! 
DONKEY KONG rn 
Version BEN, Heinz Hübben 
Realisation und AS 2a Aller ERERN Abt. Software-Verlag 
Special-Effects: SFR | Mühlbachstraße 2 
T. M. BINZINGER DS D-5429 Marienfels/Taunus 
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r oo Ihr sche Partnar für Computersysteme ; 
c cc SompuREr Studio GmbH 
BEUTE en MRS ne Gr oma 


ER et Elisabethstraße 5 


4600 Dortmund 1 
Tel.: 0231- 528184 


De Tx 822 631 cccsd 













POSTFACH 2105. 

5205 ST. AUGUSTIN 2 

TEL. 02241-28071 

TELEX 889702 
—AAb! 


SCHMIDTKE 






ai ne Be alien ‚der Tandy Corp. 


on OBERHAUSEN = 
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electronic 
GENIE -Fachhändler 4200 Oberhausen 1 
Sandkaulstraße 84/86 Nohlistr. 29 
5100 AACHEN Telefon (0208) 853997 


Tet. 0241-23217 





Abakus (APPLE komp.) 
Oric 
EACA (Videogenie) 


Geschäftszeiten: 


Mo, - Fr. 10.00 Uhr bis 13.00 Uhr 
14.30 Uhr bis 18.30 Uhr 

5a. 10,00 Uhr p1s 14.00 Uhr 
Donnerstags geschlossen SANYO ( Laser) 


BERLIN __| WILHELMSHAVEN 


MICRO so Computer Mierecompinter 









Softwareprodukte 
= GENIE CENTER Peripheriegeräte u. Zubehör 
x mit elgener Service-Station \ 
® Computer +» Monltore SHARP 
. Typenrad u Matrixdrucker KAYPRO 
2 j E DV onxstton-Etikeiten-TabeRisrnepier EACA - GENIE 
emmemetetterre > Somsroaumme | RENKE. RS 
Computer 
1000 Berlin12, Systeme BROTHER 
Schlüterstraße 16 2940 Wilhelmshaven 


Telefon 030/31259 13 Bismarckstraße 150 
Geschäftszeiten: Mo-Fr 10-18. Sa 10-13 Uhr | Telefon 04421-12636 





KLEINANZEIGE 
GESCHÄFT 


UMFANGREICHE SOFT- 


WARE... zu extrem niedrigen 


Preisen. Z.:B.. RPNL-Compiler 
DM.::49,80,: Textsystem DM 
39,80, Auftragsabwicklung und 
Dateiverwaltung DM: 48,-, Da- 
tenverwaltungssystem in. MBA- 
SIC oder PASCAL DM 48,- etc. 
etc. Katalog TG9 gegen: Frei- 
umschlag. Luther-Verlag, Post- 
fach 1226, 6555 Sprendlingen. 
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Colour Genie doppelt so 
schnell! R. Szklenar, Rat- 
hausstr, 28, 7062 Ruders- 
berg 


COLOUR GENIE 32K 
S K AT, Maschinenprog., 
Grafik für 39,- bei Uwe 
Knöfel, Saarbrückenstr. 171 
23 KIEL. 1 


COLOUR GENIE COLOUR 
ENGLISCH, 2500 Vok. + 
Redewend., Abfrag. + Neu- 
eing. usw.32K.:erford. 39,- 
DM : {Kass.)} Kowalewski, 2 
Hamburg. 73, Reinickendor- 
ferstr. 4a 


Grafik Adventures u.a.; Li- 
ste: : Walkowiak, Zechen- 
bahn 13, 435 Recklinghsn. 


All-Copy kopiert alle CG- 
Programme! DM 32.- Info: 
M. Pistorius, Kohlerstr. 12 
7600 Offenburg 0781/ _ 
38192 
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Uns erreichen immer wieder Brie- 
fe und Telefonanrufe, in denen 
uns Fragen gestellt werden,: die 
kein alter Computerhase jemals 










Und:.an diese Zielgruppe der 
GENIE.DATA wendet sich unsere 
Rubrik:;/Für den Anfänger”, die 
ab::.dieser Ausgabe der GENIE 
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Isgabe 0 IRA E, 
\ stellen würde. Die Leute die.da DATA regelmäßig in jedem Heft VE ng BB 
anrufen oder schreiben sind An- zu finden sein wird. Und jetzt KAXZ en 
| fänger auf dem Gebiet der Compu- : der: Aufruf an alle Anfänger KERTIER 8} 





terei, oder wie man auf'gut neu- 
deutsch sagt: „Newcomer’'. 
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Wenn Sie irgendwas nicht wis- 
sen, oder nicht verstehen, schrei- 
ben Sie uns Ihre Probleme, wir 
werden sie in dieser Rubrik Ilö- 
sen! 


Allerdings reicht es uns nicht, 
wenn Sie einfach schreiben: 

„Ich bekomme das Programm auf 
Seite XX nicht zum Laufen!’ 

Sie müssen uns angeben, wel- 
chen Computer Sie benutzen (falls 
Drucker, welchen, falls Floppy, 
welche), und Sie müssen uns Ihr 
Problem so genau wie möglich 
schildern. So, jetzt genug der Vor- 
rede, jetzt fangen wir an! 


Eine Vielzahl der Anfragen rich- 
tete sich auf die Eingabe von Hex- 
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Hexdumps sind die komprimier- 
te Widergabe von Assembler-Pro- 
grammen. Wenn wir uns die erste 
Zeile von Maze Man ansehen, 
sehen wir eine Zahl (4800) und 
danach elf mal zwei Nullen. 
Die Zahl 4800 gibt uns die Spei- 
cherstelle an, in der das erste Nul- 
lenpaar steht, also die ersten zwei 
Nullen stehen in der Speicher- 
steile ABOOH. 

— Das H hinter 4800 bedeutet, 
daß es sich um eine Zahl im Hexa- 
dezimal-System handelt. — 


Die nächsten beiden Nullen stehen 


dann in Speicherstelle 4801 H usw. :: 


Wenn wir dasselbe in Assemb- 
lercode stehen hätten, würde‘das 
so aussehen: 
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Jetzt wissen Sie schon, was ein 
Hexdump ist, wofür : man es 
braucht, und.:..: 


Richtig, wie‘ man. es. eingibt, 
wissen Sie ja noch nicht. 

Um ein..Hexdump einzugeben, 
braucht man: ein  Monitor-Pro- 
gramm, z. B:. den: Colmon von 
TCS.' Wenn: Sie dieses Programm 
haben, können: Sie- ohne Beden- 
ken sofort..weiterlesen. Wenn. Sie 
ein anderes Monitor-Programm ha- 


: ben; z.Bi:CGMon; können. Sie 


auch: weiterlesen, müssen sich aber 
die: Bedienungs-Anleitung dieses 
Programms: holen (wer suchet der 
findet!).und. zum Verständnis die- 
ses Artikels. mitverwenden. 
Wenn‘:Sie. noch. kein Monitor- 


dumps, und.das: wollen wir jetzt 10 4800: NOP . ‚Programm haben, hören Sie jetzt 
auf der Stelle. näher.besprechen, 20 480%: NOP auf zu. lesen, gehen los und besor- 
und zwar am.Beispiel. des Colour usw., bis gen. sich..eins, _ und: dann dürfen 
Genie Programms: Maze Man, also, : 110 480A NOP Sie weiterlesen. 


schlagen Sie. die .GENIE DATA 
1/84 auf, Seite 26. 


Hier sehen Sie. ein: solches -Hex- 
dump. Bevor wir uns. aber. jetzt an: 
sehen, wie. man: sowas..eintippt, 
klären"wir zuerst einmal: die Frage, 
wofür solche Hexdumps gut sind, 
und warum man sie in Zeitungen 
abdruckt. 


Daraus: erkennen: wir, Wozu 
‚Hexdumps gut sind. Sie stellen 11 
Zeilen Assemblercode in nur einer 
Zeile: dar. Man benötigt. also. we- 
niger Platz, es wäre ja auch sonst 
nicht möglich, ein Programm wie 
Maze Man abzudrucken, da es 
leicht eine ganze GENIE DATA 
füllen könnte! 





Laden Sie. jetzt als. erstes Ihr 
Monitor-Programm, "was. wir. ab 
jetzt. nur“ noch Monitor“ nennen 
werden. 

Nach dem: Laden: und Starten 
des Monitors kann es losgehen. Sie 
brauchen‘ die. Start-,;: End-. und 
Entry-Adresse des Programms, das 
Sie eingeben wollen. 
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Diese finden Sie auf Seite 27 
im letzten Absatz des Textes, hier 
sind sie aber auch noch einmal: 

Start: 4800H 

End: 5660H 

Entry: AAE7H 
Diese drei Zahlen brauchen Sie 
zum Abspeichern des eingetippten 
Programmes auf Cassette, die erste 
Zahl (4800H) brauchen Sie aber 
auch für den E-Befehl des Moni- 


tors (E = Eingabe). 


Tippen Sie jetzt: 
E4800 und Return. 
Es erscheint: 
4800 00 — 

Tippen Sie jetzt ®® und Return, 

Jetzt haben Sie bereits die er- 
sten zwei Nullen von Maze Man 
eingegeben. 


So verfahren Sie jetzt, bis Sie 
bei den Nullen auf Seite 32 sind. 
Tippen Sie aber nicht ständig Null, 
sondern schreiben Sie die Zahlen 
des Hexdumps ab! 
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Nach Eingabe der letzten bei- 
den Nullen tippen Sie Break. 
Ihr Programm steht jetzt.(Hoffent- 
lich ohne Fehler) im Speicher des 
Colour Genie. Sie sollten es 
jetzt auf Cassette speichern, damit 
Sie es nicht wieder neu eintippen 
müssen, wenn Sie der Spieltrieb 
erneut befällt. 

Tippen Sie: 

P4809 5660 4AE7 und Return 
Auf die Frage. nach dem Namen 
tippen Sie:;: 


2 \ MAZE und Return, 


Beachten Sie bitte, daß ein. Name 
nur. Sechs Zeichen lang. sein.darf, 
und. daß das. erste: Zeichen .ein 
Buchstabe sein muß! Deshalb. las- 
sen wir das MAN. vom: Namen weg. 

Machen Sie Ihren Recorder be- 
reit zur Aufnahme und tippen Sie 
nochmal Return, woraufhin das 
Programm gespeichert wird. 

Um ganz sicher zu gehen, 
sollten Sie das Programm noch 
mals auf einer anderen Cassette 


Fa 


ect 





speichern. Jetzt haben Sie Ihren 
Maze Man fertig! 

Wenn Sie ihn jetzt wieder spie- 
len wollen, legen Sie einfach die 
selbst gemachte Cassette ein und 
tippen SYSTEM und Return und 
dann MAZE und Return. Nach 
dem Laden tippen Sie / und Re- 
turn, und das Spiel ist wieder da! 

Da aber niemand fehlerfrei ist, 
kann es Ihnen passieren, daß Sie 
sich irgendwo beim eingeben ver- 
tippen. Nehmen wir an, Sie schrei- 
ben hinter der Zahl 49EF statt CB 
irgendetwas anderes. Tippen Sie 
dann Break, um die Eingabe abzu- 
brechen, dann E49EF und Return. 
Jetzt können Sie den richtigen 
Wert.. (CB) eingeben und. fort- 
fahren. 


Um‘sich. mit der grundsätzlichen 

Arbeitsweise: vertraut zu machen, 

können: Sie: ja: auch zuerst einmal 

ein kürzeres Programm eingeben. 
Und nicht vergessen: 

Wenn Ihnen irgendetwas unklar 

ist, schreiben Sie uns! 
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Angeregt wurde ich zu dieser 
Schaltung durch ein von mir eer- 
weitertes Programm für eine hoch- 
auflösende Grafik, das 32K des 
RAM’s als Grafikspeicher benö- 
tigt. 

Ohne Disk-System bleibt noch 
genug Speicher für das Basic übrig, 
aber mit Disk wird der Speicher 
rar. Was ist da näherliegend, als 
die brachliegenden 16K RAM, 
überdeckt vom ROM, für die CPU 
sichtbar zu machen, und somit 
16K zusätzlich für den Grafik- 
speicher zu gewinnen? 

Gedacht, Getan! — Aber erst 
etwas zur Theorie: 


Mit den Adressen A 14..und 
A 15 wird der 64K Speicher in.. 
4 Blöcke (Bank) a 16K aufgeteilt. 
Im untersten Block (0) liegen 
ROM, Tasten, Bildschirm und na- 
türlich der unbenutzte RAM-Be- 


reich. Der Block 1 beinhaltet 
hauptsächlich den Kommunikati- 
onsbereich, das Disksystem und 
teilweise Basiczeilen oder Maschi- 
nenprogramme,. Die Blöcke 2 und 
3 speichern üblicherweise Basic- 
zeilen und/oder Maschinenpro- 
gramme sowie den Stack, Va- 
riablen usw. 

Der Block 3 soll nun als Grafik- 
speicher (oder ähnlich} verwendet 


werden;:wobei Block O (aber nur 
der:RAM-Teil}) in den Bereich 
von..Block 3 wahlweise eingeblen- 


. det werden kann. 


Aufteilung der Blöcke 
Block: ‚Bereich (Hex.) A14 A15 
0... 0000-3FFF 0 0 
1 4000-7FFF 1 0 
2 8000-BFFF 0 1 
3 C000-FFFF 1 1 

Durch die Schaltung wird er- 
möglicht die Adressen A14 und 
A15 bei Bedarf zu invertieren, 
aber nur, und das ist sehr wichtig, 
wenn beide Adressen auf High 
sind. Wäre diese Bedingung nicht‘ 
erfüllt, könnte es vorkommen, 
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daß die CPU den ROM-Bereich 
oder Biock 1 und 2 nicht mehr 
auslesen kann. Arbeitet nun die 
CPU in Block 3, so kann man ihr 
anstatt Block 3, Block O servie- 
ren. Die CPU merkt dieses aber 
nicht,.denn für sie bleibt es im- 
mer Block 3. 
Zur Schaltung: 

Sie besteht im Grunde nur aus 
zwei IC’s, IC 2 und IC 3, IC 1 ist 
hier ein unbenutztes Flip-Flop aus 
der Schaltung zur Takterhöhung 
des Video Genies {nächste GENIE 
DATA). IC 2 prüft, ob beide 


Adressen auf High sind, und gibt 
diese Meldung zum IC 3 weiter, 
welches je. nach Ansteuerung der 
Adressen A14 und A15 invertiert 
oder nicht. Durch IC 1 lassen sich 


















Schalterfunktionen: 


b= _ Bankselect softwaremäßig 


16K ausgetauscht, 


a= Bereich ab C000 wird normal gelesen 


c= Bereich ab 0000-3FFF wird mit oberen 
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die Bänke umschalten. Mit dem 
Schalter können die Bänke wahl- 
weise von Hand (Stellung a oder c) 
oder auch in Stellung b software- 
mäfßig umgeschaltet werden. Mit 
den folgenden Basic Befehlen 
kann zwischen den Bänken umge- 
schaltet werden: 
OUT 254,0 = Bank 3 
QUT 254,32 = Bank O 

Soll mit..dem Bank-Select gear- 
beitet werden, so muß bei 
"READY" oder "'MEM SIZE” 
bzw. "HIMEM” entweder 49151 
oder OBFFFH eingegeben werden. 
Bei nichtgebrauch arbeitet der 
Rechner wie üblich, egal welche 
Bank eingeschaltet ist, 

Der Einbau der IC’s erfolgt am 
besten fliegend auf der CPU-Pla- 


BAUTEILE: 


2x 





Abonnieren - Profitieren # 


Bei jeder Ausgabe drei Zeilen kostenlos inserieren I! 


Also: Füllen Sie die eingeheftete Bestellkarte aus, und sichern Sie sich Ihr persön- 
liches GENIE DATA Abonnement! 


Widerstände 1,5 K 
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tine an der freien Stelle für IC 26, 
wobei die IC's 2 und 3 huckepack 
aufgebaut werden. 

Die Modifikationen am Gerät 
sind minimal. Lediglich die Zulei- 
tungen zum IC Z24, Pin 13 und 
14 müssen aufgetrennt werden 
(auf der CPU-Platine). Danach 
kann die Schaltung nach dem 
Schaltplan angeschlossen werden. 

Mögliche Anwendungen sind, 
ausser als Grafikspeicher, daß Ein- 
und Ausblenden von Maschinen- 
programmen, z. B. ein Monitor 


oder Assembler, der nach dem Be- 
arbeiten des Programmteils nicht 
wieder neu geladen werden muß, 
einfaches Umschalten genügt. 





Stck. IC Typ: +Pin —Pin 
1x 1 741S74:.. Flip-Flop 14 7 
1x 2 74LS00 .. NAND 14 7 
1x 3 74LS86 . EXOR 14 7 
1x Schalter 2x ein mit Mittelsteilung aus 


A14(24/13) 


 A15 (24/14) 





(Select-Signal} 
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Wenn Sie sich den Programm-Aus- 
druck einmal ansehen, werden Sie 
feststellen, daß Textstar eigentlich 
garnicht so lang ist, deshalb hier 
einmal kurz vorweg, was Sie mit 
dem Programm alles machen kön- 
nen. 

1. Texte eingeben und redigieren 

2. Texte auf Disk speichern und 
wieder laden. Merge Funktion 
ist eingebaut, Sie können also 
auch Textbausteine zusammen- 
hängen. 

. Texte ausdrucken. (Block- 
und Flattersatz!) 

. Das Programm bietet Zugriff 
auf verschiedene Drucker 
Funktionen. 

Textstar ist natürlich nicht so 
komfortabel, wie gekaufte Text- 

systeme, dafür aber sehr viel preis- 

werter! 

Bevor ich Ihnen jetzt erklä- 
re, wie Sie mit Textstar am be- 
sten arbeiten, noch eine Bemer- 
kung zum Programm. In den Zei- 
len 73 bis 81 finden Sie ein Un- 
terprogramm, das Steuerzeichen 
für den Drucker in Strings ab- 
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legt. Diese Methode wurde ge- 
wählt, um Textstar an alle Druk- 
ker anpassen zu können. Die hier 
vorliegende Version arbeitet mit 
dem Star DP 510. Wenn Sie einen 
anderen Drucker besitzen, sehen 
Sie in seiner Bedienungs-Anleitung 
nach, wie verschiedene Schriften 
erzeugt werden und ändern die 
Zeilen 73 bis 80 dann entspre- 


: chend. 


Nachdem Sie Textstar einge- 


tippt und auf Diskette gesichert 
haben, kann es losgehen. Tippen 
Sie RUN! 

Textstar fragt Sie jetzt nach 
der Textbreite. Hier geben Sie 
eine Zahl zwischen 1 und 63 ein, 
die dann der Anzahl von Buchsta- 
ben pro Zeile entspricht. Wenn 
Sie hier nur Return tippen, wird 
die Breite 63 eingestellt. Die Zei- 
lenlänge wird Ihnen immer am 
oberen Bildschirmrand durch ein 
weißes Rechteck angezeigt. 

‚ Nach‘ dieser Eingabe befinden 
Sie sich. im: Schreibmodus. Hier. 
können Sie. folgende Befehle di- 
rekt eingeben. es 
1.++ist En . BER 
2.++block 
.++druck: 
‚ttedit 
+tsave 
. Frload 
.++FLÖSCHEN 
zu den Befehlen im 
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Jetzt aber 
Einzelnen! 
Text auflisten 
+Hrlist 
Wenn Sie eine Zeile beendet ha- 
ben, können Sie als nächste Zei- 
le +#list eingeben, woraufhin der 
komplette Text auf dem Bild-: 
schirm, versehen mit Zeilennum-- 

mern, aufgelistet wird. 

Wenn Ihnen das zu schnell 
geht, können Sie durch gleich- 
zeitiges Tippen von „Klammer- 


Yale 


affe” und Shift den Computer 
stoppen. Um das Auflisten fort- 
zusetzen, tippen Sie irgendeine 
andere Taste. 
Biocksatz erstellen 

++block 
Dieser Befehl bewirkt, daß sämt- 
licher im Speicher befindlicher 
Text auf die maximale Zeilen- 
breite gesperrt wird. Sie können 
also hiermit Texte erstellen, die 
Links- und Rechts-Bündig ausge- 
druckt werden. Es ist aber nicht 
sinnvoll, wenn wirklich jede Zei- 
le auf Block gesperrt wird, da Sie 
sonst ja nie einen Absatz machen 
könn ten. Deshalb gibt es eine 
Möglichkeit, das Sperren in ein- 
zeinen Zeilen zu unterdrücken. 
Wenn Sie nämlich an das Ende ei- 
ner Zeile, die nicht gesperrt wer- 
den soll, ein # schreiben, bleibt 
diese Zeile wie sie ist. 

Beispiel: 


Das ist toll! Wird gesperrt, 


Das ist toll! #+ Wird nicht gesperrt. 
Es:gibt. übrigens noch eine Aus- 
nahme. :Wenn:eine Zeile nur aus 
einem Wort besteht, wird sie auch 
nicht gesperrt, 
Der :Block-Befehl kann beliebig 


‘oft. :angewandt werden, da Zeilen 
.... die.schon: die richtige Breite ha- 
ben, 


nicht mehr bearbeitet 
werden. Es ist übrigens sehr hilf- 
reich,‘ ;wenn man ca. alle 10 Zei- 


"len den Block-Befehl anwendet, 
weil"man dann die Zeilenbreite 


besser überblicken kann. Das ist 
aber nicht notwendig. Sie Kön- 
nen durchaus erst den ganzen Text 
eingeben, bevor Sie *block an- 


wenden. 


Text drucken 
*druck 
Nach Eingabe dieses Befehls wird 
der ganze Text, der sich momen- 
tan im . Speicher befindet ge- . 
druckt. 








SOFTWARE 


GENIENATN 33 





Text sichern 
#save 

Nach diesem Befehl fragt Sie 
Textstar nach dem Namen des zu 
sichernden Textes. Dabei sollte 
die Laufwerknummer mit angege- 
ben werden, so daß ein Name z. 
B. so aussieht: 

TEST/TXT:1 
Hierbei würde der Text unter dem 
Namen TEST/TXT auf Laufwerk 
1 gesichert. Zur Kontrolle wird 


während des Savens die aktuelle 


Zeile angezeigt. 
Text laden 
+load 
Funktioniert an sich genau wie 
der Save-Befehl, nur daß der Text 
von der Diskette geladen wird. 
Dabei wird ein eventuell noch im 
Speicher stehender Text über- 
schrieben. 
Texte verketten 
+tmerge 
Mit diesem Befehl können Sie an 
einen im Speicher befindlichen 
Text einen von der Diskette zu 
ladenden Text anhängen. 
Text löschen 
++LÖSCHEN 


eingegeben werden. Seine” Funk- 
tion ist recht simpel, es löscht den 
Kanpleen Text im Speichen, 


Text editieren 
##edit 
Dieser Befehl gibt Ihnen folgen- 
de Unterbefehle: 
L = Zeile löschen 
E = Zeile einfügen 
Z = Zeile editiern 
A = Auflisten 
Q = Zurück zur 
Texteingabe 
Sehen wir uns diese Befehle ein- 
mal der Reihe nach an, 
L — Zeile löschen : 
Nach L werden Sie nach der Num: 


mer der zu löschenden Zeile:ge- 
fragt, Diese Zeile wird ersatzlos. 
aus dem im Speicher befindlichen 
. diesem Artikel wurde auch damit 
geschrieben !}, aber Sie wissen ja: 


Text herausgenommen, 

E — Zeile einfügen 
Nach E und der Eingabe der:Zei- 
lennummer wird an dieser: Stelle 
eine Leerzeile eingefügt. 

Z — Zeile editieren 


Nach Z und der Zeilennummer 
können Sie diese Zeile neu:ein-: 


Q — Zurück 
Nach Q kommen Sie wieder zu- 
rück zur Texteingabe und kön- 


:nen ganz normal an ihrem Text 
 weiterschreiben. 


Das Sie in der Texteingabe sind, 
sehen Sie übrigens an dem Cur- 
sor, der blinkend auf Ihren näch- 
sten Geistesblitz wartet. 

So, das waren die Funktionen 
von. Textstar. Es wird natürlich 
wieder ein paar Leute geben, 
die den Editor kritisieren, denen 
möchte ich sagen: „Das Programm 
ist..in. Basic, es’ gibt also keinen 


‘Grund, den Editor nicht zu ver- 
.i bessern! 


I” 


Wir: haben Textstar natürlich 
durch und durch auf Fehlerfrei- 
heit ‚getestet (das Manuskript zu 


Den: schlimmsten Fehler erkennt 


man: ‚immer, wenn es zu spät ist, 
und wenn. tatsächlich kein Feh- 
. ler. da ist,.dann muß sowieso ge- 


ändert werden! | 
Aus dem Tagebuch eines 





Dieser Befehl muß zur Sicher- geben. leidgeprüften Programmierers. 
heit komplett in Großbuchstaben A — Auflisten 

(Versalien sagt der Fachmann) Siehe H+list. Viel Spak.: N 

I CLEARLO000: :DIMTES (900) + IN=1 

2 GOSUB71 . 

> sa een Le eg 
RE | Br Ei . 

5 PRINT"ARRERTIRKERRRERENKRTRERERENRTRIRKRRERKTTHRKTRKKRTRUKER EEK EI 
g" ! 

& EIN, 


KERKEEK" 


B PRINTSI60, "Zum Starten, 


7 IFINKEY$S=""THEN? 
10 PRINTSYAO,""; 
11 IFTB=OTHENTB=63 

i2 IFTB>A3STHENGDOTOLO 
12 CLS 

FRINTSTB,CHR$ (1971) 
LINEINPUTTES (IN) 
FOKETB+15360,1971 


}:NEXTI:POKETB+1 


:INFUT"Textbreite 






ws TB 


IFTES (IN) ="##druck "THENGOSUBZT : TE$ (IN) ="":60TD15 
IFTESCIN)="##block"THENGOSUB42: TES (IN) ="":60T0D1S 
IFTESCINI="##1ist "THENFDRI=1TDIN-1:PRINTUSING"##H#": I; :FRINT" 
5360,171: TE$(INI="":60T015 


"TEST 


20 IFTES(INI="##LÖSCHEN" THENIN=1: TES (I) ="":C0LS55 POKETB+15I650, 191:60T015 
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21 IFTE$S(IN="##edit" THENSDSUBS4A: TESCIN)="":60T015 

22 IFTEStIN)="##save" THENLINEINFUT"Name "sNA$:DFEN"O",1,NA$S:FORI=1TOIN- 
t:PRINT#1,TE$ (II :FRINTTE$S(I)=NEXTI:ECLDSEI:GOTOIS 

?=E IFTE$S(IN)="##load" THENIN=1:GOSURS7:GOTOIS 

24 IFTES$ (IN) ="##merge"THENGOSUR&ET:GOTOIS 

25 IN=IN+1 

?& 60T015 

27 FORI=1TDIN-1 

28 IFTE$(I)="#1" THENLFRINTDRS$ (1): :NEXTI 

29 IFTESCLI=S"#2"THENLPRINTDRS (ZI 5 :NEXTI 

=0 IFTE$(I)="#3"THENLFRINTDRS (I); :NEXTI 

31 IFTE$(I)="#4"THENLPRINTDRS$ (4); :NEXTI 

32 IFTE$S(I)="#5" THENLPRINTDRS (5); :NEXTI 

335 IFTE$ LI) ="#6" THENLPRINTDRS$ (6) 3:NEXTI 

34 IFTE$S(II="#7"THENLFRINTDRS$S (7), SENEXTI 

z5 IFTE$(I)="#8"THENLFRINTDRS$ (8); : NEXTI 

z&6 IFRIGHT$(TE$(TD) „12 ="#"THENLPRINTLEFT$(TE$ (I) ,„LENCTES CITY) 1: GOTOSS 
37 LFRINTTES(T) 

28 NEXTI 

=? CLS 

40 FORI=1TDOIN-1:PRINTTE$ {I} :NEXTI:POKETB+1ST60, 191 

41 RETURN 

42 CLS:FRINT:FORI=1TDIN-1 

az S54=" " 

44 IFINSTR(TE$ (I) ,„S$) SOTHENGOTOSO 

45 IFRIGHT$ TEST), 1) ="#" THENGOTOSO 

46 IFLEN(TE$S{I))=TETHENGOTOSO 

47 RANDDM:FO=RND (TR) 

48 IFMID$(TE$(CI),FO,1)=S$THENHI$=LEFT$S (TES (I) „PO) :H2$=RIGHT$ (TES (I) „LEN 
{TES (III -FDI:TES (TI =H1$+" "+H28$ 
49 IFLEN(TE$ (I) )<TBTHENGOTO47 
50 FPRINTTES(I) 

51 POKETB+1S350,171 















2 
3 DR$(1)=CHRE$(C14) 
74 DRS {ZI=CHRE (15) 


52 NEXTI 75 DRE& (2) =CHRS$ (18) 
53 RETURN 1:78. DRE (4) SCHR$ (27) +" E" 
Ss4 CLS 1277. DRS (5) SCHRS(2TI +" F" 


55 FRINT"EDIT-BEFEHLE":PRINTLI$ 

56 PRINT,"L = Zeile löschen" 

37 PRINT, "E Zeile einfügen! 

58 FRINT,"Z Zeile editieren“ 

SF? FRINT."A = Auflisten" 

50 FRINT,"Q = Zurück zur Texkteingabe" 
61 FRINT:FRINT:INFUT" Ihre Wahl";WAS 


1.78 DRS (6) =CHRS$ (27) +" 4" 
1.79 DRS (7)ISCHRS (ZT) +"5" 

80 DRS (B) =SCHR$.(27) +"R"+CHRS (2) 
81 RETURN 


52 IFWAS="q"ORWA$="N"THENELS: FORI= ıTDIN-1: PRINTTES(TI: NEXT: FOKETB+15S540 
‚I91:RETURN 
63 IFWAS=" a" ORWAS="A"THENCLS: FORI=1TOIN-1: PRINTUSING"###" 1; =PRINT" ";T 


E$(I):NEXTI:POKETB+15TE60, 191: INPUT"Fertig, dann Return": XX: 60T055 

64 IFWAS="z "ORWAS="Z" THENINPUT" Zeilen-Nummer "zZ: FRINTTE$ (ZI :PRINT:PRINT 
’Neuer Text für Zeile";Z:LINEINPUTTES$ (Z) :G0T054 

5 IFWAS="1"ORWAS="L*" THENINPUT"Zeilennummer"; Z:IFZ>TETHENGOTOS4: ELSEFOR 
I=ZTOIN: TESCI)=TESCI+1) :NEXTI: IN=IN-1: WAS="A":GO0T085 

66 IFWAS="e"ORWA$S="E" THENINPUT"Zeilennummer"; Z: IFZZi THENGOTOS4:ELSEFORI 
=IN TOZSTEP-1:TE$ (1+1)=TE$ (I)SNEXTI:TES (Z)="": IN=IN+1:WAS="A":GOTOAS 

67 LINEINFUT"Name ";NA$:DFEN"T",1,NA$ 

58 LINEINPUT#1,TE$S (IN) :FRINTTES$ (IN): IFNOTEOF (1) THENIN=IN+1:60T058 

67 IN=IN+1 

70 ELOSE1:RETURN 

71" Druckcodes für Star DPF 510 
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Dipl.-Ing. Manfred Kuhn 





Dieser Disassembler für Colour Ge- 
nie beinhaltet den kompletten 
Z 80 Befehlssatz. Das Programm 
benötigt ca. 20 K RAM. und läuft 
deshalb nur mit der 16: K Erwei- 
terung. Es wurden keine spe- 
zielien Colour Genie Befehle ver- 
wendet, deshalb sollte es auch auf 
anderen Genie Geräten und TRS 
80 Modellen einwandfrei laufen. 

Auf eine Eigenart des Pro- 
gramms möchte ich noch hin- 
weisen. Das Programm disassem- 
bliert bis Adresse 32767 einwand- 
frei. Ebenfalis arbeitet es einwand- 
frei ab Adresse — 32768 bis —1 
(FFFFH). Es läuft aber leider 
über die Adresse 8000H nicht hin: 
weg. Bei Maschinenprogrammen,- 
die über diesen Punkt hinaus- 
gehen, muß man das: Programm 
zweimal starten... 










10 CLS : Eu 
2a PRINTS4G8, "Z- 96 Disassenklart 
39 PRINTSS16, "Designed by Mi Kuhn" 
48 PRINTSSIS, "Copyright 1993" : 

56 DIM B$(255),0$ (256), D$(125),E$ (255), Fs1259), ‚sst2 55), ‚Hsızss), As (5) „V$ (35) ,5$ (1 
6), Al${16) 

6& PRINT:PRINT:50T01730 

70 REM FROBRANM BENDETIGT ca 142% BYTE Be 
88 REM UNGESTARTET UND ca 19555 BYTE ee - 
98 REM GESTARTET a 

190 REM 

110 REM 

26 REM En | 
1356 INPUT"Startadr. dez.";8 u | 
140 INPUT"Endadr. dez."}T- ae | 
158 PRINT"Disassembler arbeitet!" 
1650 A=PEEK(S) 

178 B=A:GOSUB1SB0:REM DEZ-HEX 'CONV. 
180 GOSUB 1428:REM DEZ-HEX CONV. 4 | 
198 X$=RICHT$(A$,1) 

200 Y$=LEFTS(A$,1) 
21@ IF A=4 THEN 418 

226 IF A$="CR" THEN 669 
23a IF As="DD" THEN 780 
240 IFA$="ED"THENLOLG 








EIERN 
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256 IFA$="FD"THEN1120 
260 IFA=>64 AND A=<191THENSSO 

270 IFA<6A4THENA4SO 

280 IFX$="2"THENSBO 

298 IFX$="4"THENSBO 

366 IFX$="&"THEN6SO 

310 IFX$="A"THENS8O 

328 IFX$="C"THENSBO 

334 IFX$="E"THENASO 

349 IFA$="CD"THENSSO 

356 IFA$="DB"THENSSO 

360 IFA$="CI"THENSBO 

370 IFA$="D3"THEN630 

380 LPRINTS$SS" "5As,,Bs(B) 

396 S=$+1 

408 IFS>ITHEN END ELSE GOTO148 

410 LPRINTSSE" "zAg, ,"NOP" 

426 G0T0390 

430 IFA=BTHENS8O 

446 IFX$="O"THENASE 

450 IFY$="1"THENSBO 

450 IFX$="&"THENGSO 

476 IFX$="8"THENASO 

496 IFX$="E"THENASO 

496 IFY$="2"ORY$="3"THENS1O 

538 GOTOSSR 

51 IFY$="2"THENSSO 

526 IFX$="2"THENSBE 

530 IFX$="A"THENSBO 

546 GOTOSB4 

556 IFX$="2"THENS8O 

566 IFX$="A"THENSSO 

570 GOT0389 

580 A$(1)=A$:8=5+1:A=PEEK (8) : 6OSUB158A 
590 A$(2)=A$:8=9+1: A=PEEK (5) :GOSUBL5BO 
500 AS (3)=A$ 

510 LPRINTSSE" "sASCha" RASCH" "HAST ,BECBIS" HAST) SAF(2) 
629 G0T0398 

636 A${1)=A$:3=5+1:A=PEEK (5) :60SUB158@ 
640 A$(2)=A$ 

650 LPRINTSSZ" "HASCHE" "TASC2) ,BS(B)S" "5A$2) :GOTOSIO 


660 As {1)=A$:9=S5+1:A=PEEK (9) :C=A:60SUB1580 
670 A (D)=A$ 
680 LPRINTSSS" "HASCHIE" "3A$1i2),C$H(C) 
698 GOTOSIE 
700 A$11)=A$:5=S+1:A=PEEK (5) :E=A:60SUB1580 
710 At{2)=A$ \ 
728 IFA=203THEN890 
30 IFA$="21"THEN94O 
740 IFA$="22"THENI40 
759 IFA$="2A"THENI40 
760 IFA$="34"THEN940 
778 W$=RIGHTS$ (A$,1) 
788 7$=LEFT$ (A$, 1) 
798 IFWE="9"THENIIO 
840 IFA$="23"THEN998 
B1G IFA$="2B"THENIIO 
826 IFA$="Ei"THENIIG 
836 IFA$="EI"THENI9IO 





SOFTWARE GENIENATN 7 


























































850 8$=$+1:A=PEEK ($) :GOSUB1580 

BAR As (H)=A$ 

878 LPRINTSEE" "HASLLIET "FASCDH" HAST) ,ESCE) 

886 GOTOSIG 

896 S=S+1:A=PEEK (9) :GOSUB1580 

906 A${I)=A$:5=8+1: A=PEEK (5) :GOSUB1580 

910 As(4)=A$:G=A 

920 LPRINTSSE" "HABE" ASCHE" ASCHE" "FAS(4),G$G) 
938 GOTDSIB 

940 S=S+1:A=PEEK (9) :GOSUB1S588 

959 A$ (3) =A$:ı9=8+1:A=PEEK (5) : GOSUB1580 

960 Abi4)=A$ 

97% LPRINTSSE" aspa" VEAgLD)E" "Aslä)z" "rAsl4) ,ES(E) 
986 GOTOSIG 

990 LPRINTSSS" agtl)g" "3A4(2) ,E${E) 

1606 GOTOSIG 

1010 A${1)=A$:9=5+1:A=PEEK (5) : D=A-54:605UB1598 

{026 A${2)=A$:W$=RIGHT$(A$,1):7$=LEFT$(A$,1) 

1030 IFbs="Z"THEN1970 

1640 IFW$="B"THENLO7O 

1858 LPRINTSSI" "HAs(l)ı" "HAs(2),D$LD) 

1066 GOTOSIO 

1978 S=5+1:A=PEEK(S) :605UB1586 

10986 A$ 13) =A$:9=G+1: A=PEEK (5) :GOSUBLSBO 

1096 A$ (4) =A$ 

1166 LPRINTSSE" ASCHE" "EABLDIE" FASIDIF" "5ASC4),DSECD) 
1118 6010398 

1126 A${1)=A$:3=9+1: A=PEEK (5) : F=A: GOSUBLEBG 

1130 A$(2)=A$ 

1149 IFA=2ASTHEN1ZO8 

11560 IFA$="21"THENISSO 
i150 IFA$="22"THENISSO 
1176 IFA$="2A"THEN1350 a 
1180 IFA$="SF"THENISSO EEE 
1190 US=RIGHT$ (AS, 1): 26= LEFTe(AS, v 
1200 IFlI$="9"THENI400 

1218 IFA$="23"THEN1488. 

1226 IFA$="2B"THEN1404 

1236 IFA$="E1"THEN1400 

1246 IFA$="E3Z"THEN1400 

1259 IFA$="ES"THEN140G 
1266 9=5+1:A=FEEK (5) :GOSUB1S80- 
1270 A$(T)=A$ MACHE Ei 
1288 LPRINTSSE" "HASCH GE" "rasimg" ASLH FELR) SEEN. 
1296 GOTOS9B > 

1360 S=S+1:A=FEEK(S): GOSUR1588 

1318 A$(S)=A$:9=5+1: A=PEEK (5) :H=A:605UB1584 ei 
1328 A$(4)=A$ ar o 

1350 LPRINTSSE" "HASCHIE" "ragtz)g" "Hagiz)y" "AS 4) ,H$CH) | 
1346 GOTOSIG nn | 
1358 9=$+1:A=PEEK ($) :G0OSUB1586 Be 

1360 A$(S)=A$:9=8+1: A=PEEK ($) :G0SUB1580 

1376 A&(4)=A$ 

1380 LPRINTSSF" "ASCHE" "HASLDIE" "HASTE" "Hagla),FEtR) 

1396 GOTOIIG 

1468 LPRINTS$FAS(L)SASCD FF) 

1410 GOT0398 

1426 RESTORE:REM DEZ-HEX CONV. 4 

1436 FORZ=6T015 

LANGSRERDSETZ I m ni ee ge ae ee En an En en ae en 0 Sb 

























FE RESGRERONESUNSERESANIDDENOHNN 
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1450 NEXTZ 
1460 DATAB, 1,2,3,4,5,6,7,8,9,A,B,C,D,E,F 
1479. X=8 

:1488 IF X<OTHEN X=X+65536 

1499 5$="" 


1500 Y=X 

1510 Yi=FIX(Y/16) 

1529 Y2=Y-Yi1#16 

1530 9$=8$ (Y2) +5$ 

1548 Y=Yi 

1550 IFY>OTHEN1510 

1560 IFLEN(S$) <ATHENS$="0"+5$: 60701560 

1578 RETURN 

1580 RESTORE:REM DEZ-HEX CONV. 2 

1590 FORZ=07015 

1500 READAI$(Z) 

1616 NEXTZ 

1620 DATA@,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F 

1630 X=A 

1646 Ald="" 

1650 Y=X 

1560 Yi=FIX(Y/16) 

1670 Y2=Y-Yis16 

1588 Al$=Al$(Y2)+AL$ 

169% Y=Yi 

1700 IFY>OTHEN1644 | 

1710 IFLEN(AI$)<2THENALS="O" Alt: soro171 

1726 A$=Al$:RETURN Erin 

1750 FOR V=1TOS2:READUE(WISNEXT 

1746 FORB=1T0255: READBS (B) :NEXT 

1750 FORC=470295: READCS (C) :NEXT 

1766 FORD=6T0123:READD$ (D) : NEXT 

1778 FORE=9T0249: READES (E) : NEXT 

1780 FORF=9T0249: READF$ (F) :NEXT 

1799 FORB=6T0254:READGS (G) :NEXT 

1800 FORH=6T0254:READH$ (H) :NEXT 

1818 GOTO1SO 

1820 DATA"LD BC data","LD (BE),A","INC BC","IND B","DEC B","LD B,data", "RLOA","E 
X AF,AF®", "ADD HL,BE","LD A, {BC)","DEC BO", "INC C","DEC C","LD C,data", "RRCA","D 
INZ","LD DE,data","LD (DE),A", "ING DE", "IND D", "DE D","LD D,data", "RLAN, "IR", "A 
DD HL,DE" 

1838 DATA "LD A, (DE)","DEC DE","INC E","DEC E","LD E,data","RRA","JR NZ","LD HL, 
data","LD (addr),HL","INE HL","INC H","DEC H","LD H,data", "DAA","IR 2","ADD HL,H 
L","LD HL, (addr)","DEC HL","INE L","DEC L","LD L,data","CPL", "IR NE", "LD'SP,data 


1848 DATA "LD (addr) ,A","INC SP","INC (HL)",PDEC (HLI","LD (HL),data”, "SCR","IR 
C","ADD HL,SP","LD A, (addr)","DEC SP", "INC A","DEC A","LD A,data","CCF","LD B,R" 
„"LD B,C","LD B,D","LD B,E","LD B,H","LD B,L","LD B,CHLI","LD B,A","LD C,B","LD 
& g" 
950 DATA "LD t, DE EBIELEN ED AED BEP OEB EAHLE NDR EB DB TB 
b, g", DD D, D", up D, Er, “YD D, H", "LD D, Eu "[D D, {HL)", "ıD D, A", "ID E ;B", "ID E,C", 
"LD ED", "LD E,E","LD E,H","LD EL", "LD E, (HL) ","LD E,A","LD H,B","LD H,C","LD H 
p" 
y 
1868 DATA "LD H,E","LD H,H","LD H,L","LD H, HL)" "LD H,A","LD L,B","LD L,C","LD 
L,D","LD L,E","LD L,H","LD L,L","LD L, (HL), "LD L,A","LD (HL),B","LD CHL),C®,"LD 
(HL),D","LD (HLI,E","LD (HLI,H","LD (HLI,L","HALT","LD (HL)I,A""LD A,B","LD A,C 
1876 DATA "LD A,D","LD A,E","LD A,H","LD A,L","LD A, (HL)","LD A,A","ADD A,B","AD 
D A,C","ADD A,D","ADD A,E","ADD A,H","ADD A,L","ADD A,CHL)", "ADD A,A","ADC A,B", 


"ADE A,C","ADC A,D","ADC A,E","ADE A,H","ADC A,L","ADE A, {HL)", "ADC A,A","SUR B" 
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1880 DATA "SUB C","SUB D","SUB E","SUB H","SUB L","SUB (HL)","SUB A","SBC A,B", " 
SBC A,C","SBC A,D","SBC A,E","SBC A,H","SBC A,L","SBC A, (HL)","SBC A,A","AND B", 
"AND EC", "AND D","AND E","AND H","AND L","AND (HL)", "AND A", "XOR B","XOR C","XOR 
D" 

1996 DATA "YXOR E","XOR H","XOR L","XOR (HL)","XOR A","OR B","OR C","OR D","OR E" 
„ "OR H", "OR L","OR (HL)", "OR A","CR B","CP EN, "ER D","ECP E"„"CP H","ECP LER {H 
L)","CP A", "RET NZ", "POP BE", "JP NZ,addr", "IP addr","CALL NZ,addr", "PUSH BE" 
1966 DATA "ADD A,data","RST 90","RET Z","RET","JP Z,addr","#","CALL Z,addr","CAL 
L addr", "ADC A,data", "RST 08","RET NC","POP DE","JP NE,addr","OUT {PORT),A","CAL 
L NE,addr", "PUSH DE", "SUB data", "RST 10", "RET C","EXX","JP C,addr","IN A, (PORT) " 
1918 DATA "CALL C,addr","*","SBC A,data","RST 18","RET PO","POP HL","JP PO,addr" 
ä "Ey (SP) s HL", ISABEL PO, addr" E "BDLSH HL" ; HAND data" r ARST 20", "RET PE", "IP {HL} Ye "7 
P PE,addr","EX DE<HL","CALL PE,addr","#","XOR data","RST 28", "RETT P","POP AF" 
1920 DATA "JP P,addr","DI","CALL P,addr", "PUSH AF","OR data", "RST 30", "RET M","L 
D SP,HL","IJP M,addr","EI","CALL M,addr","*","CP data”, "RST IB" 

1930 DATA "RLC B","RLC C","RLC D","RLC E","RLC H","RLC L","RLC (HL) ","RLC A", "RR 
E B","RRC C","RRC D","RRC E","RRC H","RRE L","RRC (HL), "RRC A","RL B","RL C","R 
L D","RL E", "RL H","RL L"S"RL CHL)®S"RL AM"RR B",ORR E","RR D","RR E®,"RR H","R 
RL" 

1946 DATA "RR (HL)" "RR A","SLA B","SLA C","SLA D","SLA E","SLA H","SLA L","SLA 
(HL)","SLA A","SRA B","SRA C","SRA D","SRA E","SRA H","SRA L","SRA (HL)","SRA A" 
3 SEN SEN, Er, KEN, EU, "x, "#", "x", "SRL RB", "SRL GE", "SRL D!,; "SRL E", NGRL H", NSRL IN 
1950 DATA "SRL (HL)","SRL A","BIT 0,B","BIT 0,0","BIT 0,D","BIT 6,E","BIT 0,4", " 
BIT Q,L*,"BIT 8, (HLI" "BIT Q,A","BIT 1,B","BIT 1,0", "BIT 13D", "BIT 1,E","BIT I,H 
"BIT 1,L","BIT 1, CHE)" "BIT 5A, BIT 2,B", BIT 2,09, "BIT 2,D", "BIT 2,Er 

1960 DATA "BIT 2,H", "BIT 2,L" "BIT 2, CHLD", "BIT 2,AN, "BIT 3,B","BIT 3,0", "BIT 5, 
D" "BIT 3,E","BIT 33H", "BIT S,L9,"BIT 3, CHLI"SBIT SAN,"BIT 4,8", "BIT 4,0", "BIT 
4,D","BIT 4,E", "BIT 4,H","BIT 4,L","BIT 4, HL)", "BIT 4,A","BIT 5,B","BIT 5,0" 
1978 DATA "BIT 5,D","BIT 5,E", "BIT 5,H", "BIT 5,L","BIT 5, (HL)","BIT 5,A","BIT 6, 
B®,"BIT 6,0", "BIT 6,D","BIT 5,E","BIT 6,4", "BIT 6,L","BIT 6, (HLI®,"BIT 6,A","BIT 
7,8", "BIT 7,0", "BIT 7,D" "BIT 7,E","BIT 7,H","BIT 7,L","BIT 7, HL)", "BIT 7,A" 
1980 DATA "RES @,B","RES ®,C","RES 0,D","RES 6,E","RES 0,H","RES @,L","RES 6, (HL 
)","RES 0,A","RES 1,B","RES 1,0","RES 1,D","RES 1,E","RES 1,H","RES 1,L","RES 1, 
(HL)" "RES 1,A","RES 2,B", "RES 2,0", "RES 2,D","RES 2,E","RES 2,H","RES 2,L" 

1990 DATA."RES 2, (HL)","RES 2,A","RES 3,B","RES 3,0","RES 3,D","RES 3,E","RES 3, 
H" "RES 3,L" "RES 3, (HL), "RES 3,A","RES 4,B", "RES 4,0", "RES 4,D", "RES 4,E", "RES 
4, H"; "RES A, L®, REG A, {HL) KH "RES 4, A", "REG 5; RB", "RES 5 4 C", "RES I D", "BES Ss E" 
2000 DATA "RES 5,H", "RES 5,L", "RES 5, HL)", "RES 5,A", "RES &4B","RES &,0","RES 6, 
D" RES 6,E" "RES &,H", "RES &,L","RES 6, (HL)", RES 6,A","RES 7,8", "RES 7,0", "RES 
7,D","RES 7,6%, "RES 7,H",CRES 7,L",@RES 7, (HLD® RES 7,A","SET Q,B", "SET a,C" 
2010 DATA "SET &,D","SET Q,E","SET @,H","SET 0,L","SET 6, (HLI","SET O,A",NGET 1, 
Br, "SET 1,09, "SET 1,D","SET 1JER,NSET 1,H","SET 1,LC,"SET 1, HL)", "SET 1,A", "SET 

2,B", "SET: 2 CH, "GET 2 ‚D*, "SET 2 ENG ger 2 u 2 HM", SET 2 U, " "GET 2 (HL) u „"SET 2 2 A” 

2020 DATA "SET 3,B","SET 3,0","SET 3,D#,"SET 3,E","SET 3,H","SET 3,L","SET I, (HL 
)", "SET-3,A","SET 4,8", "SET 4,6", "SET 4,D","SET 4,E","SET 4,H","SET 4,L","SET 4, 
(HLI", "SET A,A" "SET S,B","SET 3,C","SET 3,D","SET SE", "SET 5,H","SET 5,L" | 
2030 DATA "SET 5, (HL) ","SET.S,A","SET 6,B","SET 6,0","SET 6,D","SET 6,E","SET 6, 
H","SET &,L","SET 6, (HL); SET"6,AYSNSETTZSBNSNSET:7,0","SET 7,D","SET 7,E","SET 
7,4", "SET 7,L","SET 7, (HL); "SET-7,A" 

2048 DATA "IN B, {C)", "OUT (C),B","SBCHL,BC","LD (addr) BC", "NEG","RETN®,"IM 8", 

"LD 1,A”, "IN 6,60)", "OUT (C),C9,"ADE HL,BE","LD BE, (addr}","#", "RETI","#","LD R, | 
A","IN D,(C)","OUT (C),D","SBC HL,DE","LD (addr) DE", "x","an,"IM 1","LD A,Te | 
2050 DATA "IN E, (C)","OUT (C),E","ADE HL,DE","LD DE, (addr)","#","4","IM 2","LD A 

En. "TN H, 6) ar , "QUT (C), H", "SHC HL, HL", TEN. Rn, HEN, "nu, "RRD", "IN 5 tC} rt „ "OUT {C) 

Mr "ADC HL, HL®, ne, un, ng, RN "RLD", nn, nn, "SBC" HL, Sp, uLD a. sp", N, * 

Ing 

7960 DATA EN, "IN R, {6} 1 „OUT (CE), Rh", "ADE HL., sp LD SP, (addr) ", u N: u N rl x ak ‚ “ “os n 


En Rama eh un ie vuo an nm 
3 ’ 3 ’ 3 3 ’ ’ 








voten Mn a ueo nn on un ma HR an un nu so eh 
’ 3 ’ s , 33 ’ ‚ 3 ’ 3 ’ 8 ’ ’ 


u “ " 1: m 2 H " „"LDI", "CPI", "INT", "OUTI”, star en nr u „'LDD", "EPD", "IND", "OUTD", H N Et NT 











40 BENENNTN Sa 


sa un 
’ 


2979 DATA "LDIR","CPIR", FINIR", "OTIR", Ft, en,nn, sta ‚"LDDR", "CPDR", "INDR", "OTDR", A 
DB IX, BO", vu, un nu un nn nn nu un, nu un wu un mu un, un „"ADD IX, DE", int „nun un, ” 
nr I SLD IX,data","LD faddr), IX",„"INE Pe, al are Bun, nH ‚"ADD IK, 1x", [DH IX,t 
addr)","DEC IX","" 

OB DATA wu nun nu nn nn ua IND (IX+z2)","DEC {IX+zz)","LD (IXtzz),N","",H", 
"ADD IX, Sp", a SEE ER SIBNE IE HLeE ES I NE Er Ir „"LD B, CIRFEZ N U EU N nn lt 
un s"LD C, (IX+z zZ)", kl et nn nn, BEA ART Dub, "LD D, (IXtzz)", nn, n1 " 
3090 DATA "L_D E, (iX+z2)", au 1 a EL DE EUE 4 „ED H,(IXte2)", u N I REINE In, u 
""LD L,CIXtzz)","",®LD (IXkoz),B©,"LD (1Xtz2),09,"LD (IXt22),D","LD (IXtzz),E", 
"D (Ii4z2), H", ’LD EIf+zz) ‚L","®,"LD £IX+z 2), A", in „un nu nu un, m sbD A, {IY+#r2)" 
2188 DATA “u u u ze, m, er vu, WADD A, (IX+z je un tn un, un un nn, er „"ADE A, (IX+z 
2)", nun un. in un Bi „"","GUB KEXtzzZ) a ihn, WR na en 0 NSBG A, IY+z 2)", Ma 
nun uk un ni nd, "AND Krt22 N US A JE, Ma, 8 MU EROR (IXtze)u vu, nu mu in um 


’ 
2118 DATA "OR CURRENT SEEN A EN tt tr sch IXtze)", nt En RE N AS SEN 


nu nm nn ee te erh Bu as ia) ne nm ne Hm u nm nu nt 
8 F $ 3 ’ 9 3 F F s s ° ’ ’ 3 ’ 5 ’ s ’ ’ ’ ’ ° 


u „"FOP IX", Bi SEX (SP), IX", ars „ "PUSH Eye, Wa win, nt "op IX", su ee 
un 14 
>12 DATA ME EEE ne rs sr „'LD SF, IX”, ADD IY, BE", u iR en a ENAL, ni ae en kt en 
NR AN, U ZEN ADD IY, DE", hie 18 84 un un, er Au „"LD iv, data", "LD fadar) alyn "IN 
T IY", " ns Ei, R Er u Ye iR gı "ADD IY, ive, rn IY, (addr) u „"DEC IV", re kt er ing a Yes IE Y ; 5 u u IE tt 
"IND (IY+ze)" 
3430 DATA "DEE (IYtzz)", en ae "ADD IY, SP", tr ll EN 
‚"LD B, {1Y+z zZ)", nn nu nu un un un, Kia s"LD B; (IYszz)", un a AL, ARE ER N: DD D, { 
TY4zz)", ns RU EIEME JENE SEN u SLME en E; UIY+zz)", "LD ElY#2=) ‚N", ua N EUE NT Han un „"LD 
H, {IY+z 3" en mu 
2140 DATA "* wu, nu on un HL, OVezz)t, Mn (Iyszz) BD" "LED 1V4ze), 6" "DAY 
+z2E) DD", DD {IY+tzz), ä En, "[D (IY+tzz), H", "YD Uytzz), se i h „"LD {IY+tzz), An, kr ", 1 ns 4 N, 
SED A, (IYt+zz)", ih ne vu nu nm 19 ‚ADD A, UIV#z z)", wune un no nu hun 
2150 DATA "ADC A, (IY+zz)","" u 
166 DATA nen NG SEN ARD SEN GER EINFEZIL NEN RN NN DRS "N "GRE R,; iyYtzz)"," 
wie, NR Un a er, EN ArAND Ytzz)",®, aan Anal: en ee mn . "XOR Al nat nu’ an 
4 ” jr u „ - "OR {IY+zr) N Es HM Ne N Aut na gr ar „"CP iyizz)" kt a N. IERk ds N, ee H Je tert 


; eis 
F 


n kt up lt 18 "ig 1 38 kt 1%z 113 ir 2 bi; :H# ‚Kl 1; " mi 1 N it Wr tt u Wi w H IE W 48 th u ; et. it " EEE RR 4 130 ars 12 
2178 DATA , s x ; ; Br ESTENN RE 8 


[5 i an „"FOP ıy' " 9814 „"EX {sp}: Iv®, u M "PUSH IY ” u ” ir Hi r D 1E: an 
nun ey nn 1, wu ‚"LD SP, Ey“ “ Br SEITE 
7190 DATA "LE 1 IYX+trz) Mn at der, tt N; ' H N u. we H. N 38 14 SHRRE: CLX+ = x 
"RL (IXtzz)", N Ns vun un un, na "RR IXkz eye EN UN Ww ge an en „"SLA (IXkez) 


nm a 08 un rerE 18 : ter n " u Ns se pn a. ns kt Jr il: is 1 [611 im13 ET; Be LH ' it Kr " kt z u in au kr st 
eg SRA (IXtzz , neh 









SAERSERERRSS EAN NN ml 
EEE $ s ‚ y s 


ER Mt m, Ru 
: wi.:29 F ’ ° 








2198 DATA "SRL (IXtze)", an tt I HB „"BIT 8, UIXtez)", an N a Mu, 
IH „"BIT 1, {IX+zz)" nun on on u "BIT 2, (IX#r a un nann,un,un,na,un, "BIT 
„tIXtze)", un „on un nn nu, un su, SBLT 4, (IXtz2)", Hl „anun, a E aByr =; {1X 
ve" . BEI 
22089 DAT& AuBy ANE, Le ui ic 4 "BIT 6, {IX+z zr", EN wa NE na. Tu: Kr „"BIT 7 (IX+z 
ro 220 a I ic H RES ö, (IXtzz)", un eu nu nun. au RES 1, (INtzz)"", em 
san ar IT ee, am „"RES 3 lIk+z2)", mar NEN, un ‚RES 3, (IX+z zZ)", Re Ar 
210 DATA 1 u 12 u nn „"RES 4, {IX+tzr)} 1: vB in u a u ur EN), a W te be "RES 5 wi (IX+tzz})", st iz 18 Bi Int 
a IE 2 nn ; 1 ur n1 "RES b, £IX+r r) N su u u it Ze [b} u " ns " N rrht "RES. 5, tIX+z z) u 1k ur n “ th s na , 17 18 


3 


junsun, uSer 2, (IX+z z)", un nu un nu nun, 1 "get 1, (IXtzz)", Au: un Suulunson, u DEN 
2220, DATA "SET 2, Ben x} Nr h N. 3,13 un r kI1k 5 un , 4 ", Ust "SET 3 5, LIXFZ 23 "_ 119 3 Be u 1213 E vun ‚ ” 2 Int 
zer SET A, tIKtzz)" nu un un un. a un ugET 5, {IX+z2e)", ua N 
ET’. NEE), NE ER N u N NISER 7, ATRTZZEI! 

2250 DATA "RLE (IY+22) ns H “, un „ " ir REch i st 5 dt N a8 11 „'RRE IY+rz } n st u tt Yig 1 wi 2 ar 13 Mi " Un u or 
art IY+tzE) et ae Mi n N a n 1 “ R ur H " "RR LlYez2) a u Hi. 2) nn a N: li “ H Is 1 2 3 Te „"SLA IVszz) 


" un ist as at r ” u n 1 $t H n " N H N 10 tat L Mi Kü un nt uıHh ir ar ; 4 nr a tk in 18 tr ıE st 
nn SRA” (INszz) 2 RR rar 


Ir} 








SOFTWARE GENIEDNTA A 


RAU DATA "SRL {IY+rr) ER na , np . n N 1 ur 1 H y im ar . Hr „BIT &, tIY+zx) ur 1 H „ nn u N " In. tt N ik eg „ 
"."BIT i, {IY+z zu, "nn, Eur sr ir „"BIT2 2, (IY+z2)", nn sen, nn nn un MET „"BIT 
3: (IYszz)®, tt a a N m "BIT 4, {(IYtzr zı", stk tu nn nu un un nn "BIT 5 ,CIY 
+zz)" 

225 a DATA ER UNE ua A th „"BIT 6, (IYkzz)", sh N EN NN SEN TEN, 1a „ BIT 7, {IY+z 

ZN Eh A UHR SEAL IE EM 110 "RES ö, {IY+z Fi un nu un nn in, 19 ‚RES 1, £IY+z ze" 


gegen RES 2, (IV#z2)", wu un uul nn un,un un uRgg 3 3, (IY+zz)", N 





J 















2260 DATA ZEN EN, Br gt "RES 4, (iyrzz)t,ur, H, UN. ng ru "RES 5 KIYNFZZII, N N 
gl RE AN RES h, {IY+z zy", un un nu un, N ui ‚RES 7, {IY+z Zn MER A 
ee se lH „"SET G, (IyAzz)" mn mulnu un nun, "SET 1, (IY#z2)", ie Hl RE EEE URS LU 
2278 DATA NSET 2, (I\+tzz)", na NE NL 11 18 „"SET 3, (IY+z=) u a nn 
9 s"SET 4, {IY+z =) en m; 2: ma > in a0 ır &r s mar ‚ It Mi 1t 2: "SET 2; LIY+22) " u = nt 5 ve 5 ae tt . irn ‚ Ei} a ir 68 1 
Er b, {IY+z 2a ar 4 “ un un nn un un ngET 7, £IYtzz)" 
Thomas Wagner ame ei 
Gezchw,: A 
Schub 
Treibst.: 2458: 
RN 
‘“ ne 08:6 ._- 
se . x... ® u e 
et 


Sie sind der Kommandant der Colour Genie 


Mondlandefähre Adler. Ihre Auf- 
gabe ist es nun,:.die Fähre sicher; 
auf dem Mond zu landen. 

Ihre Geschwindigkeit können: 
Sie mit dem Bremstriebwerk be-: 
einflussen, dessen Schubkraft Sie 
mit den Tasten 1 - 9 steuern. Alle 
wichtigen Informationen zur Lan- 
dung werden im linken, oberen 
Viertel eingeblendet. Nun viel 
Spaß auf dem Mond! 







aa CLE:COLOURS 

115 FRIHTB45S, "Mondlandung" 

124 FÜRZ=ATISES 

134 REABZI 

149 FOKESHFAIEGHZ, ZU 

154 NEMT 

E20 DATAR,2,1,3,7,159,19,15, 35,36, 255,127,53, 31,295, 295,196, 36, 233, 254, 252, 249,25 

3,255,9,9,128,192,: 224, 2401, 240, 246, 15,7,7,6.3, 127,239, 2935, 127,255, 295, 292, 252, 292, 

253, 292, 293,299, 253,863, 63,63, 131, 53, 191,240, 224, 224, 282, 254, 255, 255, 254 

178 DATAS1,53,63,63, 127,63, E3,#, 252, 253,292, 2593; 292,299,299,3,63, 191,583, 191,89,2 

23,255, 19% 248, 252, 252,252, 254, 252, 252,32,8, 16,32, 248,5,6,0,8,3,7,15,9,6,4,0,8,1 

72,224, 249,0,8,8,0,08,16,9,4,15,9,0,5,0 

138 DATRR, a, 0,0,20,40,1,3,9,5,9,0,35,36,259,127,0,2,0,50,196, 36, 259, 254,0,0,6,0,0, 6 

> 192, 7;,15,13,19,19,7,1,83,63, 31,299, 299, 239, 299,292, 292,292, 298,239, 299,299, 
255 3,68, 224, Z4u, 24a, 24a, Zee, 224 224,252 




















22 > BREI _ SOFTWARE 





„ER, 131, 55,19 


ne 
22a: 2: SEE DR 






u in 






” ” Bi » ‘ 
Fos ge ce "4 L FE & 
„ern, Sa, 15 205 255, 3,0,2,143,299, 259,25 
Sein Bere a AL, = 
24, 235 255.0 A, „a , SE, ar ass on Sa, „128,192, 252, 204) Has 


‚255,8, .2,0,0,224, na 
12.56. 54,32 an 









is 2,1,64,2,132,1,1£0,10,8,2,9, 84,2, 356,140, 44,64,1,32,8,2, 129, 129,1 
682. ie, ut 

za QLE Er Zei H=5a99: V=59: Teac F=1BEEn 5=8: Media Gel. er Ziel: ehr Zeh 
243 FORA=1TOZE: ZOLOUREND OLE: FRINTERENEE DREH, "NEST 

256 GOLÖURS: FORA=SATOIS 

zeit PRINTEA, CHRENZIUNG 

27a PRINTER+SEE, CHRECZIEI 

zu NEST 

za FÜRB=SSTOZSESTEFIB 

au PRINTER, CHR 

18 FRINTEA+15,CHRFIZIPS: 

323 NET 

Ss FRIMTES,CHRECZZEI 

342 PRINTESZER, CHREUZ 

35a FRINTELS, CHREUZETFDSG 

ZE0 FRINTESTS,CHREIZZEN 

378 COLOURILIFRINTIE4L, "Hosts: " 

322 PRINTELZL, „Ges shi. E 

aa FEINTEZEL, "Schub: 


4as FREINTEZEL, "Treibet I." 

ia COoLDurRS 

4 FRINTBE4E, EHRSCISSICHREOISEDCHREIS LET CHRSÖOIERSCHRELLEISCHREILEZSCHRET 
ISZSCHREELESICHRELISZPICHREL 165 ee 
SISEDCHREÜIELSCHREULEZICHREC ET: STRINSFULS, " "3 EEE lee lee 
LES SCHRELISEIG KEREERESESEHSSLTT, 

38 PRINTESSE, STRING$CH, ZEAZDSCHRE LESICHRELISAICHREELEI, ISTRINGSCIE, SBEALCHRETIR 
SYHSTRINGECH, " "SH CHRECLEAICHREE LEZICHRELLESICHRELLELIHSTRINGECH, 202. 
+4e FRINTESZE, STRINGSC2S.: 202) CHRSCIELDCHRECHELDCHRS RZ) HRS LE DCHRSCHS2 SCHREr 
ZEZICHREE LELSCHRSÜLEZIFSTRINGECH, ZERE 
454 IE=INKEVE 
4sa IFIECH""THENISRSSCLEN 
7a IFI>P4FRANDISSSTHENS=I-4E 
+54 IFTI=BTHENT=E: 5=0 
435 COLOLFI 
sad PRIMTIA4Z, USING HHRHRHEH CH 
il FRINTE12S, USTHSHREH" SU 
Sa PRINTEZER, 35 
Saat FRINTEZFE, USING HRHR" ST 
4a IFHILEETHENZEH. SELSEEFZL 
5a VEN Fr5rM-59#Z; H=IHTEH-VURZ23: T=T-582: MM 
ss TABSEANGHSLESSTHENHZFZ 
Sra IFHPSRBRRTHENSOSUEI IE 
525 IFHLISGSTHENGÜSLEI2EE 
aa IFZZ=ZTHENSZE 
Bat IFs= STHENSUUNDE , Bi: SOUND? 2: SOUND 5,5 
Eis IFS=SBANDHPIBETHENFRINTEB+HIE], we 
22 IFS>STHENSNSUELSIG 
55a SOTO4SE 
54 LOLOR1 
a PRINTEE-4E, " Ye 
Ei IFZ= ZTHENFRIHTEE-EE, x "s 
Ya FRIHTEE, CHREC ZEICHRELLZSICHRECLSOICHRELAS): 
zu PRINTES+4E, CHRECLSZICHFER LEZICHRR LIE SCHRIFT 4 
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GENIENANTA ABONNEMENT BESTELLUNG 


Hiermit bestelle ich Abonnements) der Zeitschrift 
GENIE DATA. 








Mir ist bekannt, daß ich das Abonnement zu jedem Quartal, 
jeweils 6 Wochen vor Quartalsende, kündigen kann. 


Der Bezugspreis beträgt innerhalb der BRD nur DM 59,40, 
pro Abonnement. (Sechs Ausgaben) frei Haus, 


Die Bezugsdouer verlängert sich nach Ablauf eines Jahres um 
weitere 12 Monate, solange bis das Abonnement gekündigt 
wird. 


Mit obigen Bedingungen erkläre ich mich Einverstanden ; 


Unterschrift: Datum: 


Bei Jugendlichen unter 18 Jahren, Unterschrift eines 
Erziehungsberechtigten! 








GENIEDATN KontaKT-KArTe 


Ihr Inserat in der GENIE DATA Nr. hat meine Beachtung 
gefunden. 


Hiermit bestelle ich zur schnellstmöglichen Lieferung: 


Anzahl Preis 





Unterschrift: Datum : 


Bei Jugendlichen unter 18 Jahren, Unterschrift eines 
Erziehungsberechtigten. 








GENIEDATA KLEIN-ANZEIGEN-BESTELLUNG 


Bitte veröffentlichen Sie nachstehenden Text in der 
nächsten Ausgabe von GENIE DATA unter der Rubrik 
Kleinanzeigen. 

Bei ABONNENTEN unbedingt ABONNENT hin schreiben 
SONST ERFOLGT RECHNUNG |! 
































Unterschrift Datum 





Mit meiner Unterschrift versichere ich, keine urheber- 
rechtlichen Bestimmungen zu verletzen. 





zum Erscheinen in der nächsten GENIE DATA. Unsere Satz- 
vorlage, bzw. Film, geht Ihnen umgehend zu. 


O\/lSeite O 1/8 Seite 
O 2 Seite O Wir sind interessiert an Kleinanzeigen 
O 1/3 Seite O Bitte, senden Sie uns 
O 1/4 Seite Ihre Anzeigenpreisliste zu ! 
GENIE DATA 
O WER-WAS-WO-Einkaufsführer 
Inseratgröße 55x45 mm DM 55,-- + 14% MWSt. 
abzüglich 10% Rabatt für 6x Erscheinen. 


Satzkosten für 4 Zeilen einmalig DM 15,-- 
Jede weitere Zeile Satz kostet DM 7,50 


O Neusatz muß 
von Ihnen 
erstellt werden ! 








Unterschrift Datum 
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Era COLOURII 
ak FRINTEE+S8, CHRE$CISEICHREOLSTICHRELISSICHREC LIT: 
E PRINTEB+12R, CHREX LABICHRECLALICHRELLEZICHREC LI 
5 RETUFRH 
a COLOR 
+ IFZ=ZTHENFRINTEE-48, " "ıFRINTEE-EB, " as 


I 


FRINTEE, CHREC LAS ICHRECI4SICHREL IE ICHREE 14723 

PRIHTEE+48, CHRECLISSCHRECHAIICHREULSBICHRECISUD: 
cnLalreii 
FEINTEE+=4 „ EHREEISZICHREOISIICHREEIS4ICHREEISTIE 
FRINTR@B+120, CHREOISEICHEFLTTOCHRRFIISSICHRER 159: 

IFUCHTHENPRINTEE+H1ER, " RPRINTEE+1ES," "; 
RETLIEH ä 

IFUSSTHENSSB 

IFULZETHENSG 
SOTOIBBA 

COLOURS: PRINTESSF, CHREX DEZ HRECZEZI GE RFSCHRECIISI:PRINTE?41 As; As; PRINTB? 
AFIARFIRF I LOLDURE: PRINTEFR, CHRSC 13E2 : COLOURLIAFSCHREEZL IH: PRINTE?I3 AR: PRI 
73 ‚As} :FRINTEEIS, A; 

FÜRC= 1T02: FÜRB= 1TOS: FÜRB=1TOIZEPLAYCL,A,E,LIDENERTENEXT:HNENT: PLAY«I,1,1,05 
FRINT@SA, "Perfekte Landung" 
PRINTEIGR, ' mit "3: FRINTUSING"#C HH" U; FRINT"kmh" 
SoToSog 

SOUNDE, Ei: SOUND, 9: SCUND2, 55 SOUNDS, 3: SOUND4, &: SOUNDS, &: SUUNDE, 24: SOUND?, r:Süu 
„24: SOUND, 24a SOUNDIE, Er SOUND, 45: SOLNGIZ, 45: SOLIHDLZ, 3 
EOEUUR] 

PRINTESA, "Harte Landung 1" 

FRINTEISE, "Faehre beschsedigt !" 
SCTOFSH 

IFS=ZTHENFÜORF=1 TÜSBA: NEST: FRINTEE,." 2: "FE PRINTEEH+4B, en hs PRINTEBE+SH, " 
IE nn, " ee SOLOUEIL = Fr 





a 


= 
nl 


m nd 


a] 


cd 


GB 
wo 


regt 


m Te LA a TEN ed 
u Dr 
5 


a ae Ze a ae 
Ä 
u 


ed Ze 
[a 


“Lt 
MIN Be Did 


cl 
Zr 


.d 











rel aın 
u SZ Ze 


ZT S Ge 


EEE CN a ht 
a m 


en SDUNDE, 255: NG 
INET „FESOUNDE, 1 SOUNDS, 3 
"SaLaups : 
FRINTEE+128, ” Ä 
PRINTER, CHRECLFZICH 
FRINTEE+48, CHRSC1 
FRINTEE+SA, CHRSCI?, 
COLOUR 
FRINTEGE, "Sie sind auf ‚dem : : 
PRINT@188, "Mond zerschellt. oo... 
FÜRH=1FÜLG:CHARS:FORAI= 11020: NEXT: HARZ : NEXT: GOTO9SH 
IFH>FFSSTHENESSFTGOSUEFZA:RETUÜRN a Msn 
IFH>?SSBTHENB=ES: GOSUEFSE:RETURN 
IFH>725BTHENG=195: GOSLIESEA: RETURN 
1130 IFH>PABATHENE=145: 5USUBFISA: RETURN 
1148 IFH>GPSOTHENG=I4SCHÜSUBEASHFET URN 
1154 IFH>ESBRTHENG=145:GOSUB7SRERETURN | 
1160 IFH>B2SÄTHENB=195: G0SUB54ETRETURN. ; 
11ra IFHSSAGATHENE=185: 50SUE? IR: RETURN. | 
1196 IFH>575@THENB=225: GOSLBS4E: RETURN : 
1136 IFHPSSSETHENEB=2Z2I: GOSUB7SEr RETURN | 
1269 IFH>S2SETHENB=283: S05UBE4B: RETURN ; 
1218 IFHPSGSSTHENB=265: GOSUB7IE: RETURN 

1220 IFH>475SETHENB=385: 5ÜSUBE4EH: RETURH 

1254 IFH>4SBBTHENB=385: GOSUB7IG: RETURN 

za IFH>42SSTHENE=343: S0SUIESAHET RETURN mn 


0.012,255 SouND13, 





CHRS«17 TAICHREEIFSICHREL?Z er onnaıse2 
HRSCLZZICHRECIFAICHRFCH 3 
















Fr de a de ee a ee TU 
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Do 
I 


mr 
Rh hd 


ed cn 
er 


r# 


i31H 
132% 
1354 
1243 
1558 
ia58 
17H 
1320 
1324 
142 
idıs 
1428 
1438 
1446 
1458 
ig4cE 
1478 
14a 
1425 
1a 
151H 
1526 
1536 
1548 
15728 
1558 
1578 
1756 
15% 
15.08 


De} 
a adı 
ee 


| 


ir 
Ä 








SOFTWARE 


IFHFASETHENE= 345: SOSUBTIEH RETURN 
IFH> IP SETTHENE=S3ET: GOSUBEAR: RETURN 
IFH>3SSETHENB=3E9: GOSUETSER RETUFRH 
IFHF3ZIBTHENBS42: GSÜSLEG4ER RETUFH 
IFHF3ESSTHEHE=425: GOSUB?7SR: RETURN 
IFH>ZPSATHENE=4E 5: 505 BSd4E: RETURH 
IFH>Z5ESTHENE=46,5: 50SU87 305 RETURN 
IFHFZZ39THENE= SET: SOSUES4: RETUFM 
IFH>ZEESTHENE=345: SOSUE7 30: RETURN 
IFH>LPSBTHENE=945: 5ÜSLIBE4E: BETURH 
IFH-ISBETHENE=345: SDOSLUEYZE: RETURN 
IFH> 1238 THENB=3S5: SUSUE8S4E: RETUFH 
IFHFLSSSTHENE=539: 5OSLE730: RETURN 
IFH>FSBTHENE=RZITESDSUJER4EN RETURN 
IFH>SBRTHENE=E29: 50SLIEPZS: RETURN 
IFH>4GH THENE=2ESE SNSUBS4E: RETURN 
IFH>3MBTHENE=E25: SOSUE?IE: RETURN 
IFH>ZURTHENE= 795: SUTUEE43: RETLURH 
IFHSISRTHENE=7EI: GOSUETFIEN RETURN 
IFH>SETHENE=745 SOSUBE48 5 RETLFH 
IFH>4STHENE=745: 5OSUE?3EH RETURH 
IFH>3STHENE=72T: 505UBB4: RETURN 
IFHFZEBTHENE=S PE5: SOSUE738: RETURN 
IFH>STHENS=T55: 50254: RETUFN 


IFHISTHENE=7E5: 50SUE7 IE: Z2=2: RETURN 


KETUFHN 

ZOLDURS 
IFFEEKÜ1FISP+ER= 161 THENRETURH 
IFUZETHENFRINTEB+ ZN," 
A=RNDCH 


IFH=SITHEHFRINTEB+ 151, CHREIIESICHRECIEID: 
IFA=ZTHENFRINTEE+ 151, CHEF LPODCHRSUISP 
IFA=STHENFRINTEEH+IS1, CHRFOITEICHREEIFI2: 
IFA=4THENFRINTEE+1EI , CHRFOLGSPCHREELFL 2 


SOUNDE, Les SOUND? 59: SOUHDE, 12 
RETUFH 





Cassette oder Diskette beizulegen! 





EL EEE ea SE 5 Da ae a Te ne nn ten De tn an tern, ” 


„verdienen Sie mit Ihrem Hobby etwas nebenher. 
unsere Konditionen finden Sie im Impressum! 


Und vergessen Sie nicht, das Programm auf 


Vielen Dank! 
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Bernd Drechsel 


Funktionsdiskussion 


EIHEITTISLIIIIITTI TITTEN 
rt IE 





NETTE TNGEEITELIETTH ERS OSEERORSSTERSERTKT) 



















Lett 


LEITETE ET 
LT] DIENT LITE 


PLITTTIITPTEITTTILTPTLIT HR TEITITEIIIITEILLTERPETTTRRTTEFTFEIRTETI TC 
III AN TN n nr 


a IN RLIRTLITTITEITI ET EIESTETERTEUH II TUETTN 





Wer sich in der Mathematik täg- 
lich mit gebrochenen rationalen . 
Funktionen herumquälen muß, 
wird dieses Programm warschein- 
lich sehr begrüßen. Es erlaubt 
einen sehr komfortablen Umgang 
mit solchen Funktionen. Der 
Rechner erwartet nur die Koe- 
ffizienten des Zählers und des 
Nenners und außerdem die’ Be- 
arbeitungsgrenzen. 

Danach ermittelt das Colour 
Genie folgende charakteristische 
Daten der Funktion: 

Polstellen 
Definitionslücken 
Nullstellen 
Extremwerte 
Sobald es einen Wert ermittelt 





eine 


hat, gibt es ihn an den Drucker 
weiter. Als Drucker kommen der 
Star DP 510 und DP 515 in Fra- 
ge. Wenn der Computer alle Wer- 
te errechnet hat, fragt er, ob man 


Funktion 
wünscht. Lautet die Antwort ja, 
so bittet er um die Eingabe der 
Grenzen auf der X-Achse. 

Den dazugehörigen Maßstab der 
Y-Achse ermittelt er selbst. 


Zeichnung der 


Man kann also getrost die Hän- 
de in den Schoß legen und war- 
ten. Warten muß man allerdings 
schon etwas, ein Programmlauf 
dauert etwa eine halbe Stunde. 

Also nur nicht nervös werden. 


IIIIEOROR DRK OIOROODIOIOORDRROORRIDRISKIORROEIRORKRIRRIORKIEKKKK 


"XXX xxx 
"x%%* DISKUSSION GEBROCHEN RATIDNALER FUNKTIBONEN (0) bd xxK 
"XIX xkX 


i 

3 

4 

IS IRAK KA KK III III III IKK I KK IK IKK UK EK IKK KK IK IK IX 
5 a 

7 

8 
9ICLS 

10 PRINT" 


a en 


PRINT"S KOEFFIZIENTEN FUER ZAEHLER" 

PRINT" IN ABSTEIGENDER REIHENFOLGE" 

INPUTA1.R2,A3,A4,AS 

PRINT"3 KDEFFIZIENTEN FÜUER NENNER’" 

PRINT" IN ABSTEIGENDER REIHENFOLGE" 

INPUTB1,B2,BS 

PRINT"GEBEN SIE DIE INTERVALLGSRENZEN AN" 

100 INPUTA„B 

110 FORX=120T08B00STEP40: PRINTSX.STRING$ (40,32) 32NEXT 

120 PRINTS120,” "s2PRINTUSING"##.#"3 Al: 2 PRINT" Xm4+"3 sPRINTUSING"#H# 
"#": A253: PRINT" Xa35+"5 sPRINTUSING "HH. #" 3 AS: SPRINT" Xm2+"z 3PRINTUSING" HH. #" 
;A4; 3PRINT"X+"3 :PRINTUSING"##.#": AS; ® 
125 PRINT"# (x})= ----------------- --- “.. 

150 PRINT" "s=FRINTUSING"##R.#": Bl: : PRINT" Xw2+" 3: PRINTUSING 
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"4%, #": E2s : FRINT"X+"s::PRINTUSING"##H.#": BT: = FRINT” ":PRINTSTRING 
(40,32): 

131 LFRINTCHRS (27) "ES" :CHRSE (Z7I "WI"SLPRINT" bd FUNKTIDNSDISKUSSION" 
:LPRINTSTRINGS (38, 241) sLPRINTCHRS$ (ZI) "S"ELFRINT 

132 LFRINT” "Ss LPRINTUSING"#E. ##"1A1: 2 LPRINT" X":CHR$(144A)2"4+ "iz 


LPRINTUSING" HE. ##"3 A24:LPRINT" X"zCHR$ (154) 5;"5+ "2:2LPRINTUSING"#H#H.HE":A 

33:LPRINT" X";CHRS(154)3"2+ "3aLFRINTUSING"HR.##":AA4SSLFRINT" %+ "s:LFR 

INTUSINGE”##R.##":A5 

1335 LFRINT" fox)= "3 :LPRINTSTRINGS (48,241) 

154 LFRINT" 'z:LPRINTUSING"HR. ##" 3 Bl: LPRINT" X"SCHRS$ (16 

A)2"2+ "3:LPRINTUSING"#H. SEE": B2SELPRINT" X+ "S3LPRINTUSING"HR. ##": BI 

125 LPRINTSLPRINTSLFRINT:LPRINTSLFRINT=LPRINT" -- BEONBACHTETER BEREICH 
2 "2: LFRINTUSING"##H. ##"s A: LFRINT" BIS "::LFRINTUSING" HR. ##" BE LPRINTS 

LFRINT:LPRINT 

197 RERRORRUDORDRORDIORIGIOSROIEIOIGISKGTOSIHOKCK 

145) "xx BEST. DER FOLSTELLEN KXF 

150 BRD RIORIDISIODOSRIOKBIOTTRISKOIDIOIOIGICK X 

160 IFB1=OTHENZ2TO 

170 D=(BZ/BI)A2- (BS/B1)K4 

180 IFDSOTHENZT7O 

190 Pi=-B2/ (2XB1)-SAR(D)/2 

200 P2=-B2/ (ZXB1) +SOR (DI) /Z 

210 FRINT:PRINT"- FOLSTELLEN BEI: X1="3:PRINTUSING"#H.##"; P15: PRINT" X2 

=": :PRINTUSING" RR. ##":P2 

215 LFRINT" -- FOLSTELLEN BEI : Xl="2:LPRINTUSING" HR. ###":Fl42LPRINT" 
X2="3:LPRINTUSINGVHH.H#H#" 4 P2SLPRINT=LPRINTSLPRINT 

220 GOTOSOO 

230 IFB2=0THENZ7O 

240 F1i=-B3/RZ 

250 PZ=PFi 

260 GOTD21O 

270 PRINTSTRINGS (40.32) 3: FRINT'"ES LIEGEN KEINE FOLSTELLEN" VOR. ":LFRINT" 
-- ES LIEBEN KEINE ERSTEN VOR."=LFRINT: LPRINT: LPRINT 

280 Fil=A 

290 FZ=A:650T0500 

S00 RRRRDPRIIERRROOKRORRRICHRIEKTK 

510 ”*%%k DEFINITIONSLUECKEN-  xX%K 

Besen 2232222222722 222222222 22227 

S20 FORX=ATORESTEP.DO1 

540 DI=BIiRXAZ+BZXX+RE 

550 IFABS(DII<SI1E-STHENDL=X: G0TDA0O0 

S&öQD NEÄTX 

580 GDTO1000 

800 FRINT:PRINT"- DEFINITIONSLUECKE BEI X="::FPRINTUSING" HH. ##":X 

805 LFRINT"  -—- DEFINITIDNSLUECKE BEI X="::LPRINTUSING RR HER" EX 

si GOTOSA0 

997 7RRRRIRIORDDKIGKOISIOIIOSIOISIOIIOPDIORONCK 

778 "xxx BEST. DER NULLSTELLENKK 

9997 7 0ORRRBDRDRRRORIRIOORRIORIORIORICKK 

1000 LPRINT:LFRINT=ZLPRINT: PRINT: FORX=ATDESTEP. ol 

1010 N1=AIXXAAHAZEXAT+AERKAZHAAKKHAS 

1020 IFABS (Ni) SIE-STHENA1OSO 

1030 NEXT 

1040 GOTDI1S0O 

1050 FRINT"- NULLSTELLE BEI X="::FRINTUSING HR HHE" X 

1055 LPRINT" -- NULLSTELLE BEI X="3:LPRINTUSINGC HH HHER" EX 

1060 GOTD1O3O 

1500. RBRIRIEIREIORIIODISCOOIIORIOIOIOCKKNK 

510 ’XXX BEST. EXTREMWERTE XxX%%X 

1520 VO VORERRRORIORISCROORIOREIIOOENK 








E 

x 
& 
& 
& 
& 
8 
S 
&: 
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1530 PRINT:LPRINT:LPRINT:LPRINT 

1540 FORX=ATOBSTEP. O1 

1550 Ei=( (4KA1XXAS+IKAZKXA2H+ZKASKXHAA) K(BLRXÄZ+BZRX+BT) - (ALKXAAHAZKKAÄS+ 
ASKXAD+AAKXHAS) K (2XB1KX+B2)) / C(BLKXAZ+BZ2KX+BS) A2) 

1560 IFABS(E1)<1E-260SUB1400 

1570 NEXTX 

1580 GOTD2000 

1600 Yi=(AlKXAA+AZKXAT+ASKXAZ+AAKX+AS) / (BLAXA2+BZ2KX+BS) 

1610 PRINT"- EXTREMWERT BEI X="z:PRINTUSING"###.##";X:: PRINT" Y="ssPRI 
NTUSING "HHH#. #4"; Vi 

1615 LPRINT" -- EXTREMWERT BEI X="::LPRINTUSING"##. EHE"; X: :LPRINT®  Y 
="3:LPRINTUSING"HR EHE" Y1 

1620 RETURN | 

2000 RRERREREOORRRRICKIORIOICKEK 

2010 '%%% ZEICHN. DER FUNKT. xx 

2020 VRRRORRREOORRORORIOIIEKKNK 

2030 PRINT=PRINT" ZEICHNEN DER FUNKTION: ? 

2031 INPUT" (J/N) "3 AS: IFA$="J"THEN2O40ELSEEND 

2040 PRINT:FRINT"UNTERE GRENZE, OBERE GRENZE"; = INPUTA,B 

2050 IFB<=ATHEN2040 

2060 AX=INT (AX10) :BX=INT (BX10) :W=BX-AX: DIMY (W) 

2070 FORS=OTOW: X= (AX+5) /10 

2080 Y(S)=(A1XXA4+A2XXAS+ASKXA2+NAKX+A5) / (BLRXA2+BZKX+BS) : IFS=SOTHENNEXT 
5 

2090 IFABS(Y(S}) >=ABS (Y (5-1) ) THENJK=ABS (Y (5)) - 

2100 NEXTS 

2110 IFJIK<=100THENM=1 
2120 IFJK<= SÖTHENM=2 
2130 IFJK<= 10THENM=10 
2140 IFIK<= STHENM=20 
2150 IFIK<= 1THENM=100 
2160 IFJK<= „STHENM=200 
21685 IFW<=500 THENSW=4 
2170 IFW<=100 M 
2180 IFW<= 50 THENSW=AO 
2190 IFWE= 10 THENSW=200 
2200 a > THENSW=400. 
2210 IFW= 1 THENSW=2000 2 | 

2500 LPRINTEHRE (27) "8": LPRINTEHR$ (27) "-1"33LPRINT" ZEICHNUNG DER FUNKT 
ION: "32LPRINTCHRE(27I"5" 











| 








2510 LPRINT" = LINKE GRENZE: "3: LPRINTUSING"###. #"sA 
2520 LPRINT"7- RECHTE GRENZE: "3 2LFRINTUSING"#4#H.#"; B 
2540 LPRINT:LPRINT" —- HDECHSTER FUNKTIONSWERT IN ANGEGEBENEN GRENZEN: 


"33 LPRINTUSING" HER. HE" IK 

2550 LPRINT=LFRINT=LPRINT 

2550 H1=100: DIMX (205) 

2570 FORZ=H1TO-H1STEP-B 

2580 FORS=OTD200: V= (15-100) /SW: 0=2 

2590 X15)=0: IFV<=DL+. O1ANDV>=DL-. OL THEN2SF1ELSE2600 
25971 IFDL=OTHENX (5) =255 

2592 GOTO2710 

2600 H=tALXVAAHAZKVASHAERVAZHAAKVHATI / (BIKVAZ+BZXKV+BS) 
26810 H=HXM 

2520 IFINT(H)=O ORG =OTHENX (S)=X (5S)+128 

2630 IFINT(H)=B-1 ORU-1 =OTHENX(SI=X (SI+ 54 

2540 IFINT(H)=0-2 DRQ-2 =OTHENX(SI=X19)+ 32 

2650 IFINT(H)=9-3 ORO-3 =OTHENX(SI=X (5)+ 16 

2650 IFINT{HM=8-4 ORB-4 =OTHENX(SI=X(5SI+ 8 

2670 IFINT(WM=0-5 ORB-5 =OTHENX (SI=X(5)+ 4 

2580 IFINT{M=9-& DORU-4 =OTHENX (SI=X15)+ 2 
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26590 IFINT(HI=9-7 DRA-7 =ÖTHENX{S)=X(SI+ 1 

2700 IFV<=0,.01ANDV>=-.O1ITHEN X (9) =255 

2710 NEXTS 

2720 GOTD1OOOO 

2730 NEXTZ 

2740 END 

10000 LPRINTEHRS (ZI "L"CHRS$ (LAPICHRSE (LI: 2 A=0: GOSUB2O000 
10020 FORGC=OTD201:A=X (C) : GOSUBZO000: 5081520000: NEXT 
10030 LPRINTCHRS (27) "AYCHRS (BI CHRS (10) En 

10040 GOTO27IO ’ 

20000 IFJOY1X<>1THEN20000 EL 

20010 SOUND? „255: SODUNDI4, As SOUND = „254: SOUND15, 255 
20020 RETURN BE en, 
Bitte bedeutet EHR&(232I 


beachten : vo 





Peter Steinz 


NEWPRINT 


Besitzer eines TRS 80 Modell 1 
oder eines Video Genie, die einen 
modernen Drucker wie zum Bei- 
spiel den Epson FX-BO ihr Eigen 
nennen, werden sich bestimmt 
schon darüber geärgert haben, daß 
sie nicht alle Funktionen des 
Druckers nutzen können. 

TRS 80 und Genie können 
nämlich nicht alle Steuerzeichen 
an den Drucker ausgeben. Das 
Zeichen CHR$(0} wird einfach ig- 
noriert, CHRS${11) und CHRS{12) 
werden in simulierte Form-Feeds 
umgewandelt (wiederholter 
Wagenrücklauf} und CHR$(10) 
wird in CHR$(13) umgewandelt. 

Abhilfe schafft hier nur ein 
neuer Druckertreiber. 

Dieser neue Treiber braucht nur 
zu prüfen, ob der Drucker be- 
schäftigt ist und falls ja, zu warten 
bis der Drucker zur Übernahme 
von Daten bereit ist. Damit ist 
schon ein Teil des Probiems ge- 
löst und CHRS(O), CHRS(11) 
und CHRS(12) können ausgege- 
ben werden. Nicht ganz so ein- 
fach ist es mit CHRS(10). Die 
Umwandlung in CHR$({13) ge- 


schieht schon im ROM vor An- 
sprung des Druckertreibers. Da 
man im ROM aber nichts ändern 
kann, hilft nur ein Trick. 

Jedes mit dem LPRINT-Befehl 
auszugebende Zeichen wird im 
Zuge der Abarbeitung der Rou- 
tinen im ROM auf dem Stack 
abgelegt und liegt da auch noch, 
wenn der Treiber angesprungen 
wird. Da es auch, relativ gesehen, 
immer an der selben Stelle des 
Stacks liegt, 
neue Treiber nur das ursprüng- 
lich auszugebende Zeichen von 
dieser Stelle zu holen. 

Das Programm schützt sich 


selbst, MEM SIZE ist nicht erfor-. 
In Zeile 100 wird die: 


derlich, 
Ansprungadresse des neuen Trei- 
bers in den Printer DCB geladen. 
Das eigentliche Treiberprogramm 
beginnt ab Zeile 150. Es wird zu- 
nächst geprüft, ob das auszuge- 
bende Zeichen = 13 ist (entweder 
war dann wirklich CHR$(13)}..ge- 
meint, oder CHR${10) wurde 
schon umgewandelt}. Trifft dies 
zu, wird das ursprüngliche Zeichen 
(10 oder 13) vom Stack geholt 


braucht also der. 





und in den Akkumulator geladen, 
andernfalls wird gieich zur Aus- 
gaberoutine in Zeile 260 gesprun- 
gen. Die Zeilen 230 bis 250 sind 
nur eine Vorsichtsmaßnahme. 
Wenn nämlich der Treiber nicht 
vom LPRINT-Befehl angesprungen 
wird, sondern von DOS Funktio- 
nen mit Druck-Ausgabe, wie z.B. 
JKL, ist der Stack anders auf- 
gebaut, und es wäre ohne diese 
Zeilen kein Wagenrücklauf mög- 
lich. 

Nun zur Ausgabe-Routine. Die 
Zeilen 270 bis 310 beinhalten die 
Prüfung, ob der. Drucker bereit 


‚ist.Durch .das. Ausblenden des Bit 


6 des Druckerstatus wird. auch die 


Funktion Abschalten Papierende- 


kennung’ des. FX-80 nutzbar ge- 
macht, die im ROM vorgesehene 
Printerstatus-Prüfung ermöglicht 
das.nicht. Ist der Drucker bereit, 
wird. das‘. Zeichen in Zeile 330 
ausgegeben. Zur Anpassung an das 
Video Genie muß die Zeile 270 in 
"N A,{FD)” und die Zeile 330 in 
"OUT {FD),A” geändert werden. 


VBA GR KR ER RK AR HR RE HH U € 
GOO2O 58 NEWFRTINT * 
GOOEO 5%* FRINTER-TREIBER FÜER TRS-80 MODEL I * 
OIOAG 5% IN VERBINDUNG MIT DEM DRUCKER EPSON FX-80 * 
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VOOI0 2% (C) FETER STEINZ, 6000 FRANEFURT/MAIN, 1983 * 







DIOEO IHR CHR HF HK HH HH THF FH FH FR TFT HH FH FF HF N N IF IK FH HF IH ROH 
0070 

HH080 ORG ÖFFCAH ;BEI 48 K 

00090 INIT LD HL ,NEWFR ;NEUE TREIBERADRESSE 
00100 LD (40264) „HL : IN 4026H LADEN 

00110 DEC HL 

00120 L.D (40494) „HL NEUES DOS-HIGHMEM IN 
00130 ;4049H LADEN 

00140 RET 

00150 NEWFR _LD A,E ; ZEICHEN NACH A 

O01&0 ‚CP ODH :ZEICHEN=13 ? 

00170 IR NZ „DRUCK ıNEIN --= AUSGEBEN 
00180 LD (ZWSP) ‚SF ;STACKFOINTER IN ZWSF 
00190 FUSH IX ı IX RETTEN 

00200 - LD IX, (ZWSF) ı STACKFOINTER IN IX 
00210 LD A,(IX+17) RICHTIGES ZEICHEN NACH A 
00220 FOrF IX 

00230 cr ÖAH i ZEICHEN=10 ? 

00240 IR Z ‚DRUCK. JA, DANN AUSGEBEN 
00250 LD A,ODH ;A WIEDER MIT 13 LADEN 
00250 DRUCE — FUSH AF ı ZEICHEN RETTEN 
00270 CHECK  LD A, (37E8H) :FRINTERSTATUS LADEN 
00280 AND OROH :BIT.0O-3.UND. BIT. 6: (OUT 
00290 ;OF. FAFER) AUSBLENDEN 
VOFOO Er 30H ;iFRINTER BERELT?.: 
00310 JR NZ ,CHECK ;WENN NEIN ZURUECK 
U0320 FOF AF ; ZEICHEN ZURUECK 

00330 (37E8H) „A 5 ZEICHEN AUSGEBEN 
GOZAU ; EEREE El Be 

00350 ZWSF 3 ZWISCHENSPEICHER FUER 
VOF60 :STACKFOINTER 





00370 


Werner Toedter 


Dieses Programm bietet die Mög- 
lichkeit, den Inhalt beliebiger 
Speicherbereiche in ein Basic Pro- 
gramm in Form von Data Zeilen 
einzubinden. 

Dieses ist zum Beispiel nütz- 
lich, wenn von einem Basic Pro- 
gramm selbst definierte Maschi- 
nenprogramm-Routinen benutzt 
werden sollen. Man muf norma- 
lerweise das Basic Programm und 
die Maschinenprogramme nachein- 
ander von der Cassette laden. Da 
das jedoch sehr umständlich und 
zeitaufwendig ist, schreibt man 
die Bytes in Data Zeilen. Wenn 
das Basic Programm nun von der 





Cassette geladen ist, werden die 
Bytes wieder aus den Data Zeilen 
gelesen und mit POKE in den 


ursprünglichen Speicherbereich 
abgelegt. 
Mit dem vorliegenden Pro- 


gramm wird die mühsame und fe- 
hlerträchtige Eingabe von Hand 
umgangen. 

Ein weiteres Anwendungsgebiet 
wäre das Abspeichern von Gra- 
fiken. 

Wer über ein Assemblerpro- 
gramm verfügt, kann das Pro- 
gramm direkt in der abgedruck- 
ten Form eingeben. Man kann 
aber auch die Data Zeilen einge- 







ben und folgende Zeilen anfü- 

gen, um das Maschinenprogramm 

zu erzeugen. 

50 RESTORE 

60 FOR | = &H4800 to &H494C 

70 READD 

80 POKE I,D 

90 NEXT I 

Das Programm steht im Grafik- 

speicher, damit es nicht vorhan- 

dene Maschinenprogramme  zer- 

stört. Es wird mit einem CALL 

488A oder CALL4800 aufgerufen. 
Danach gibt man den Speicher- 

bereich an, der in Data Zeilen ab- 

gelegt werden soll. Tippt man 

jetzt LIST, so sieht man, daß die 











SOFTWARE 


52 GENIEDNTN 


Data Zeilen hinter ein vorhan- Zeilennummer Null. Man muß als 
noch mit: 


denes Programm angefügt worden die Zeilennummern 
sind,allerdings beginnend mit der RENUM anpassen. 


10 ORG A3U0OH 

oO Jr ANFANG  :-> ENTRYPFOINT 
30 DATA LD DE, OOOOH . ZEILENNR. 
40 LD HL. (45F>H) :FOINTER AUF 
ke DEG HL. ıBASIC-TEXT 
Bü DEC HL 

75 LOOF FUSH Hi . 

gs LD BC,27D :BYTES FRO BASIC- 
9 ADD HL., BC 

100 CH E,H 

112 LD Gt; 

120 FOrF HL 

130 ID {HL},C  » ZEILENFÜOINTER 
140 INC HL ; ZEIGT AUF 

150 LD £HL},E  ıNAECHSTE ZEILE 
1650 INC HL. 

170 LD (HL), E ;BASIC-ZEILEN- 
180 INC HL. ; NUMMER DER 

1970 ıLR" (HL},D :AKTUELLEN ZEILE 
Pod ING HL 

z10 LD R,o8H ıDATEN FRC ZEILE 
ZERO LE: (HL). 1E6D ı DATA-Token 
2E0 LINE CALL  HUNDRT 

ZAO INC HL 

250 LD (HL}.,A + ASCCHUNDERTER? 
ZU TALL DEHA 

270 INC HL 

280 LD {HL).A  :ASCTZEHNER) 

29 CALL EINER 

TOO INC HL 

zi0 LE (HL) ,A . sASC (EINER) 

F20 ING HL 

330 W_D HL), ZCH HASTE 

F40 DINZ LINE .8-MAL WIEDERHOLEN 
350 LD (HL), DOH U rZELILENENDE 
50 ING HL 

370 IND DE 

Z80 FUSH HL 

392 FUSH DE 

+00 L HL. tANFADRI ıFRUEFEN,ORB 
4io LD DE. (ENDADFR? ;DIE DATEN 
420 OR A :ALLE GESFEICHERT 
Aaz0 SEC HL,DE SIND 

440 FOR DE 

450 FOF HL 

460 IR C.LODOF ;NEIN:NEUE ZEILE 
470 L.D (HL), OÖOH > BASIC-FROGR.- 
480 INC HL. ı ENDE-FOINTER 

490 LD (HL), OOH 

S00 INC HL 

Ss1o LD (AOFYH),HL. 

20 LD (AÖFRH) „HL 





Die Redaktion berichtet: „IST DAS SPIEL ZU SCHWER?” tom 
Obwohl der HELIKOPTER der meistverkaufte Renner Nr. 1 ist, haben 
noch keine Teilnehmer sich offizieß bei uns für den Kampf gemeldet. 
Wahrscheinlich denkt jeder der „Andere” ist besser und deshalb beginnt 
keiner. ee en N DIE BER 
den BESTEN. In der nächsten Ausgabe hören Sie weiter von un 

DIE REDAKTION GENIE DATA. 


ZEILE. 









F 
punKte-wettk" " ogIEs 
€ : 
mit DEM rg 


Sendet eine Postkarte mit Absender u. 
Angabe der echt errungenen Punkte 
die Sie durch Ihr größtes Können er- 
zielt haben, VEREINE 


Wir wollen sehen, walchor Commander 
als DEUTSCHER MEISTER infrage 
kommt. Wer noch keine Kampfma- 


 schine hat, kann sie umgehend bei 


uns erhalten. DM 59,-- per NN 


Der Wettkampf soll über den Zeitraum 
von drei GENIE DATA'’s laufen. 


Wir werden in der nächsten GENIE DATA 
die Teilnehmer mit Ortsangabe hier 
namentlich abdrucken. 


"MACHEN SIE MIT! 


DIE 10 BESTEN ERHALTEN EINE 
SIEGER-URKUNDE. 


DER DEUTSCHE MEISTER 
erhält eine Ehren-Urkunde und wird 
nach dem Endkampf hier mit Foto 
vorgestellt. 


KERKRRRTERKHHERTE N TEN EN THE RER HH 


Einsendungen an: GENIE DATA 


D-5429 Marienfels 





LD 
TALL 
HUNDRT EXX 


DIVZ2 INC 


DEKA EXX 


870 EINER EXX 


ANFANG LD 
CALL 


PRINT LD 
DR 
RET 
EALL 
INC 
JR 

1120 INFUT LUD 





SOFTWARE 


(40FDH) „HL 
OO84H ı ZUM BASIC-"READY" 


HL. (ANFADR) + NEUES 
A, (HL) : BYTE 
E,O0H 

HL 

(ANFADR) „HL 

D,100D "2 4DIVISOR 
A 


D 
NC,DIV2 

AD 

EA sE=REST DER DIV. 
A,B 3 (B-1)=HUNDERTER 
ALZFH ıA=ASC (B-1) 


B,0 

A,E : A=DIVIDENT 
D,10D ;D=DIVISOR 
A 

B 

D 

NC,DIVvi 

PB 

A,3OH 

E,A :E=ASC (EINER) 
A,B ; (B-1)=ZEHNER 
A.2FH  zA=ASC(B-1): 
A,E 


HL, TEXT1 :EINGABE DER 
PRINT ;ANFANGS- UND 
HL. TEXTE zENDADRESSEN 
PRINT ;DES DATEN- 
HL. ANFADR : BLOCKS 
INPUT 

(ANFADR) „HL 

HL, TEXT2 

FRINT 

HL, TEXT3 

PRINT 

HL, ENDADR 

INPUT 

(ENDADR) ‚HL 

DATA 

A, (HL) 

: 

z | 
0035H  :ZEICHENAUSGABE 
HL 

PRINT 

B,4 : ZEICHENANZAHL. 
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SOFTWARE 


1120 CALL  OSD9H ı INFUT-ROUTINE 
1140 Jr E,OO&AAH ;BREAK -> 
1150 EX DE,HL 

1160 LD L.O000H 

1170 NEXT LD A, (DE) 

1180 SUB ZOH 

1190 JR C,FALSCH 

1200 CF OAH ı ZIFFER 

1210 JR C„ENDE JA 5 
1220 cr LiH ı BUCHSTABEN- 
i230 IR E,FALSCH ; BEREICH 
1240 cr 17H sA-F 

1250 IR NC, FALSCH 

1260 SUR 27H ı HEX (A-F) 
1270 ENDE FUSH EC 

1280 LD B,OOH 

12970 LD E,A = 
1300 ADD HL,HL :HL-REGISTER 
1210 ADD HL,HL MIT 16 

1320 ADD HL,HL :MULTIPLI- 
1330 ADD HL,.HL ı ZIEREN 

1340 ADD HL,BC 

1350 FOF BC 

1360 INC DE 

1370 DJINZ NEXT 

1380 RET 

1390 FALSCH LD HL,TEXT4A 

1400 CALL PRINT 

1410 IR INFUT 

1420 TEXT1 DEFB ICH 

1430 DEFE IFH 

1440 DEFM "Anfangs" 

1450 NOP 

14680 TEXT2 DEFM "End" 

1470 NOF 

1480 TEXTS DEFM "adresse des. Maschinenprogramms" 
1470 DEFBE ODH 

1500 DEFR 3FH 

1510 NOF 
1520 TEXT4 DEFM "FALSCHE EINGARE" 
1530 DEFB ODH 

1540 DEFM "Richtiger Wert :" 
1550 NOF 

1550 ANFADR DEFS 4 

1570 ENDADR DEFS 4 

1580 ANFANG 


Ö 
1 
. 
a 
5 


& 
7 
8 
7 
1 


0 DATAQ34,251,064,034,253,064, 


END 


DATA195,138,072,017,000,000,042.249 
DATAO64, 043,043, 229, 001,037,000,009 
DATAQ48,077,225,113,035, 112,035,115 
: DATAOSS, 114,035, 006, 008, 054, 136, 205 
DATAO89,072,035, 119,205, 114,072,035 
DATA119,205, 134,072, 035,119, 035,054 
DATAO44,016, 236, 054, 000,035,019,229 
DATA213, 042,069, 073, 237,091,073,073 
DATA183, 237,082, 209, 225,056, 196,054 
DATAOOO, 035, 054, 000, 035,034, 249,064 
205,102 








HESEUSSENNNETEUBDEESESTITEENG 





RS 


RS 





eu 


t 
17. DATA!A4S.DAS 2s2, 17% © 
1% a 2 
15 TATALBE, O4, 145,048, 257, I? 
„ DaTA09SZ 120, 178,047, 217, Der, Zl 
DATA217,201.07 EI 5,572, 208,18 
DATAOZSE,003,072,205,1933,072,02 
DATAO?F,205,192,072,07 ‚259,07 





an DATAZSS« 
=1 DATAZOS. 


DATAOON, Z17,. 042, 


% 

+ 

- AnTE 
= DATAN 

Be 


‚03a, BER-E 
























DIR OEL LBE DT7ENDEE ME, 


Fey and een, 


97, 77 ONE D7E, 37m, 205 


Hat er Sue ze erEr zu 255 










Ag 





cl 


Gr) 





O7E 


192 


22 DATAOFZ,RO24,07E 'o72, 1’ =, WO2,072, 2.3 


Ba DATALRT, DR, 20S, 021,000, 025,02 
3 DATADGZ, 


Era reege 
ns DATAZEE 





=3 DATAQO97, 
== DA Aiız, 11a, 111,107, 
3&£ DATAL1S,017,0687,000,070,085,0786, 
77 EL DEI, MEZ 269, ÜFE, 078, 


27 DATAOBST 


=8 DATAU&SS, 06S%&, DES ,DIE, Er 105,0ss, 
27 DAaTAa1ll6, 105 


40 DATAL14,11& „032,058, a Br 
41 DATAOLS 





53043, 207,217,00 


re 








00,079, 041, 





De 


in 





in0, 005,077, 100, 


5,218, 102,0 
200, 026,214, 048, 
Be DATAGZE,2E4,0910,056,010,25 ‚olr 
27 DATAO2O, 254, 077,048, 
28 DaTamds, 
29 DATA1LIE,019, 218,224, 201, 
30 DATA2OS, 
31 DATAL1G, 102,097, 11 Sa 
32 DATALLG, 
DATAL1S, 101,022, 100, 101, 115,937, 


15,213, 00 
G41,041,D041, 
OEE, 036,078 
37,072,024,207,029,0Z1, 


rl 
Io& 


. a. 


7,197 


OOF 


n659 


ee 
1143, 101,1 


nn 


115,099, 104, \ı1ns 119,101,110 


PER ESCHE 


076, 077,052, 067,013, 000, 


114,097,109, 


309 
285 


rl 


ıin4 


152,101,114,032, 897, 101 


048 


DOD 
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IMPRESSUM 


Copyright (c) 1984 by Heinz Hübben, Offset- 
druckerei und Verlag, 5429 Marienfeis /Ts. 
Nacndruck, Vervieltaltigung, Vbertragung SO» 
wie Speicherung ın EDV-Aniagen verboten, 
Bei Bauanleitungen und/oder Programmen 
kann für die Fehlerfreiheit keine Garantie 
übernommen werden. 

Die Meinung der einzeinen Autoren muß 
nicht mit der des Verlages übereinstimmen. 
Anfragen an die Redaktion bitte nur schrift- 
lich mit beigelegtem Rückporto. 

Kündigung der Abonnements: Zu jedem Jahr, 
rechtzeitig, vor Ende des Jahres {6 Wochen). 
Jedes Abonnement verlängert sich nach Ab- 
lauf automatisch um ein Jahr. 

Sollte die GENIE DATA aus Gründen, die 
nicht in der Verantwortung des Verlages lie- 
gen, nicht oder nicht rechtzeitig erscheinen, 
besteht kein Anspruch auf Nachlieferung, 

Für eventuelle Schäden und/oder Folgeschä- 
den an Geräten und oder Bauteilen und/oder 
Datenverlust kann keine Haftung übernom- 
men werden. Der Nachbau unserer Bauanlei- 
tungen und/oder die Anwendung von Pro- 
grammen aus der GENIE DATA erfolgt auf 
eigene Gefahr. Alte Mitteilungen erfolgen nur 
für Amateur- und Hobby-Zwecke. Irrtum so- 


wie alle Rechte vorbehalten. Es kann keine 
Gewähr dafür übernommen werden, daß die 
verwendeten Schaltungen, Firmennamen, Wa- 
renbezeichnungen und alle anderen Angaben 
frei von Schutzrechten Dritter sind. 

Sämtliche Veröffentiichungen erfolgen ohne 
Berücksichtigung eines eventuallen Patent- 
schutzes und/oder Gebrauchsmusterschutzes. 
Bei alten Artiket-Einsendungen gehen wir da- 
von aus, daß der Verfasser alle Rechte an der 
Einsendung besitzt, sowie geistiger Eigentü- 
mer ist. 

Über jede Artikel-Einsondung freuen wir uns! 
Honorar: Für Jeden gedruckten Artikel be- 
zahlen wir pro Druckseite ein Honorar von 
50,- DM. 

Wir gestatten jedermann, einen Artikel aus der 
GENIE DATA zu entnehmen, und in einer 
anderen, nicht kommerziellen, Druckschrift 
zu veröffentlichen, unter der Bedingung, daß 
an der Gestaltung nichts verändert wird, das 
erwähnt wird, daß der betreffende Artikel 
aus der GENIE DATA entnommen würde 
und daß man uns mindestens ein Exemplar 
der betreffenden Druckschrift kostenlos, so- 
fort nach Erscheinen, zur Verfügung stellt. 
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gemini-10X 


Der neue STAR-Drucker. Für alle, die etwas zu drucken haben: Schneller 
und besser als bisher. 120 Zeichen pro Sekunde. Standard ASCII in normal 
und kursiv, internationaler Zeichensatz, Sonderzeichen, Blockgrafik und 
8 verschiedene Schrifttypen. Da hat man die Wahl. Auch beim Plotten: 480, 
920 oder sogar 1920 Zeichen pro Zeile auf Rollen-, Einzelblatt- oder 
Endlospapier. Mit Durchschlägen, wenn Sie wollen. Vertikal- und Hori- 
zontal-Tabulator, programmierbarer Zeilenabstand, Selbsttest und vieles 
andere mehr. | 


Wenn Sie jetzt noch den Preis beachten, verstehen Sie vielleicht, warum 
wir auf unseren Neuen ganz schön stolz sind. 


Informieren Sie mich bitte ausführlich und kostenlos über den | u 
| STAR gemini-10X. | 
| Name er a NEN | 
| | 
| Stroße anne | 
| | 


= |COMPUTER GMBH 





Postlach 2105 

5205 $t. Augustin 2 
Telefon 0 2241/28071 
Tolox 889702 














